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.