[TOJluK]

Не совсем понятно, что надо но к примеру:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
Button2.Click;
end;

После нажатия на кнопку 1 будет нажата кнопка 2.