Ændre luk-knappen!

Når jeg kører dette kald i en popup-menu virker det fint:

procedure TForm1.Luk1Click(Sender: TObject);
begin
  Application.Minimize;
  TrayIcon.HideMainForm;
end;

Men hvis jeg vil gøre det samme med luk-knappen, således:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Application.Minimize;
  TrayIcon.HideMainForm;
end;

Så virker det ikke. Nogen der lige hurtig har forklaringen :-)