Delphi для всех

Отключить кнопку закрытия окна

Этот пример показывает, как сделать кнопку закрытия окна недоступной для клика...

procedure TForm1.FormCreate(Sender: TObject);
begin
DeleteMenu(GetSystemMenu(Form1.Handle, false),
SC_CLOSE, MF_BYCOMMAND);
end;