(Resolvido) Fechar Form

[Pirambu!]

Oi pessoal, criei um form e na propriedade BorderStyle : bsToolWindow, quando execulto parece apenas no form o botão de fechar X, mas eu não quero que ele feche apenas Minimize, alguém sabe com fazer?

[Jhonas]

parece apenas no form o botão de fechar X, mas eu não quero que ele feche apenas Minimize

procedure TForm1.Button1Click(Sender: TObject);
begin
   form1.WindowState := wsMinimized;
end;

abraço

[Pirambu!]

Jhonas, Obrigado, mas não estava querendo usa um botão para isso, eu conseguir ficou assim

usei isso para minimizar

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Action := caNone;

Application.Minimize;

end;

depois com um popupmenu usei isso

procedure TForm1.Button2Click(Sender: TObject);

begin

Application.Terminate;

end;

ficou bom, obrigado pela força