procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=not Timer1.Enabled;
case Timer1.Enabled of
True: Button1.Caption:='Стоп';
False: Button1.Caption:='Старт';
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Button2.Left:=Button2.Left+10;
end;