[[cHackAll]]

Yo lo que haría para el caso es lo siguiente:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
 EnableMenuItem(GetSystemMenu(Handle, False), SC_CLOSE, MF_GRAYED);
end;

Allí estan tus dos APIs.

Suerte!