dann hätte ich trotzdem noch eine weitere Frage
Ich möchte mein Auto im Viereck fahren lassen. Allerdings bekomm ich nur 2 Richtungen hin.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Button1.left > 400
then begin
Button1.Top := Button1.top+1
end
else Button1.Left := Button1.left +1 ;
wie bau ich dies nun noch um damit er ebenso in den Button1.left -1 sowie Button1.Top -1 gelangt sodass er bei dem Startwert wieder von vorne beginnen kann?