Animacja tekstu skacze, gdy włączony AlphaBlend

Animacja jest płynna, ale gdy tylko włączone Alpha Blend Formy głównej, zaczyna ona skakać - ale uwaga TYLKO gdy kursor myszki nie znajduje się nad Formą główną.
W momencie, gdy kursor znajduje się nad Formą główną, animacja jest płynna.

Jak temu zaradzić także gdy kursor nie znajduje się nad Formą ?

const
  Tekst = 'To jest tekst, który ma się przesuwać...';

var
  x: Integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  x := Width;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 //with PaintBox1 do
   begin
    Dec(x);
    Canvas.Lock;
    Canvas.Refresh;
    Canvas.TextOut(x, 10, Tekst); 
    Canvas.Unlock;
    if x < (- Canvas.TextWidth(Tekst)) then x := Width;
   end;
end;

Poniższe próby nic nie poradziły na ten problem:

• zastosowanie wątku
• doubblebuffered := true