Два события на одну кнопку

[FaTaL]

Например так

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Caption := 'Привет';
  Application.Minimize;
end;