Как сделать так чтобы кнопка в паскале абц передвигалась при нажатии другой кнопки

Допустим что кнопка которую ты нажимаешь называется "Button1"
Допустим что кнопка которую ты хочешь передвинуть называется "Button2"

Соответственно.

 procedure Button1Click(Sender: TObject);
begin
  Button2.Left := Button2.Left + 2;
  Button2.Top := Button2.Top + 2;
end; 

Код выше каждое нажатие кнопки Button1 будет смещать на 2 пикселя вправо и вниз кнопку Button2