Cooltrayicon animation laeuft nicht durch.

[lucius]

Hallo Leute,

Ich habe mein Cooltrayicon eine Imagelist zugewiesen damit ich ne Animation simulieren kann waehrend ein Process.
Jetzt lauft die Animation wohl aber Sie startet nicht sofort und bleibt ab und zu haengen waehrend des Proceses, ich habe schon Application.Processmessages mit in den Code eingefueght aber es laeuft trotsdem noch nicht so 100 Procentig.

Delphi-Quellcode:

procedure THaupt.ActionClick(Sender: TObject);
begin
Application.Processmessages
  Screen.Cursor := crHourGlass;
  Cooltrayicon1.IconList := Imagelist1;
  Cooltrayicon1.CycleInterval := 100;
  Cooltrayicon1.CycleIcons := true;
......
Code ausfuehrung..
......
  Screen.Cursor := crDefault;
  Cooltrayicon1.CycleInterval := 0;
  Cooltrayicon1.CycleIcons := false;
  Cooltrayicon1.IconList := nil;

Kann ich noch was anderes machen damit die Animation sauber ablaeuft?

MFG Lucius.