Empêcher la fermeture d'une Form avec la croix

procedure TForm1.FormCreate(Sender: TObject);
begin
EnableMenuItem( GetSystemMenu( Form1.Handle, LongBool(False)),
SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);
end;

Note: La form peut toujours être fermée avec Alt-F4