Memo animieren...

[Fourcorner]

Also:

Timer1.Enabled := False; zuerst wird er Timer ausgeschaltet,...

Memo1.Left := Memo1.Left-Step; ...,dann wird das Memo bewegt...

Timer1.Enabled := (Memo1.Left + Memo1.Width) > 0; ...,wenn das Memo noch zu sehen ist muss ja der Timer weiterlaufen, damit bei einem weitern Inervall es sich bewegt (in diesem fall gibt die Klammer einen Boolean mit true zurück)...

Delphi-Quellcode:

if not Timer1.Enabled then
    ShowMessage('Done');

...und schließlich wird noch überprüft, ob das Memo schon von der Fläche weg ist (trifft ja dann ein, wenn die Überprüfung von oben false ist).

Ich hoff, ich konnt dir helfen.