Ejecutar un OnKeyPress

[MasterXP]

ejemplo si tienes este procedimiento en el Boton 1:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;

si quieres llamar eso desde el boton 2:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
Button2Click(Sender);
end;

Saludo.