procedure TForm1.Button1Click(Sender: TObject); begin if Button1.Left - 80 then // statt Bindestrich 'größer als' begin Button1.left := Button1.left - 20; end else begin Button1.left := Button1.left +20; end; end; ... Delphi Tutorial Anleitung Teil IDE Programmierung Programmieren LPP Button Top Left Position