1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

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

{ 
  Note: You can still press Alt-F4 to close the form! 
  Achtung: Die Form kann immer noch mit Alt-F4 geschlossen werden! 
}					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure tDocumentDialogDesignForm.WndProc(var Message: TMessage);
begin
  case Message.Msg of
      WM_CLOSE:
        Message.Result := 0;
      Else
        Inherited;
    End;
End;