Двигающиеся кнопочки в Lazarus

[Mirenetto]

Двигающиеся кнопочки в Lazarus

Здравствуйте. Нужна помощь в освоении Lazarus. Не могу заставить кнопку двигаться по экрану, когда нажимаю на ту, которая должна ее запускать tehno015
Вот такой вот у меня код получился... В Enabled y Timer стоит False

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Left:=Button1.Left + 10;
  Timer1.Enabled:=true;
  Timer1.Enabled:=not Timer1.Enabled
  if Timer1.Enabled then Button2.Caption:='Стоп'
                      else Button2.Caption:='Пуск';
end;

 

[vasilych]

Что таймер отрабатывает? Не совсем ясно, что должно происходить...
По нажатии Button1 та сдвигается на 10 пикселей вправо. Это понятно. Какой обработчик нажатия Button2?

 

[vasilych]

Если кнопка должна двигаться непрерывно, то одним нажатием кнопки она будет сдвигаться только на 10.

 

[vasilych]

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;

 

[AlexZir]

procedure TForm1.Timer1Timer(Sender: TObject); begin Button2.Left:=Button2.Left+10; end;

Я бы сделал так:

 procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
if Button2.left<Form1.width-Button2.width then Button2.Left:=Button2.Left+10; 
end;

это чтобы кнопка с формы совсем не убежала