TGifImage bleibt stehen

[messie]

Hallo,

ich wollte ein animiertes gif einbinden und habe mal ein wenig in den alten threads nachgelesen. Wenn ich das zum Laufen bringe, bleibt die Animation nach einiger Zeit stehen. Danach läßt sie sich nur noch für einen Durchlauf starten.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  demo : TGifImage;
  Rect : TRect;
begin
  demo := TGifImage.Create;
  demo.LoadFromFile(extractfilepath(application.ExeName) + 'seegeranim.gif');
  rect.Left := 0;
  rect.Top := 0;
  rect.Right := 200;
  rect.Bottom := 200;
  demo.Paint(Form1.Canvas,Rect,[goasync,goanimate,goLoopContinously,goTransparent]);
  application.ProcessMessages;
end;

Weil ich es im MainThread starte habe ich goasync gewählt (sonst gab es Zugriffsverletzungen).
Was mache ich da noch falsch?

Grüße, Messie