Timer.Interval<1

[Cöster]

Ich würd das Interval vom Timer auf 20 setzen (also 50 Bilder pro Sekunde, mehr kann das menschliche Auge nicht wahrnehmen). Die Timer-Procedure änderst du dann in

Delphi-Quellcode:

var i: integer;
begin
 For i:=1 to 20 do Form1.Move;
end;