Irgendwie funktioniert das nicht...
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
a := -20;
while a < 200 do
begin
Panel1.Left := a;
inc(a);
sleep(80); // wobei du mit X die schnelligkeit der Bewegung variieren kannst
end;
end;