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

ОГЛАВЛЕНИЕ    HOME  MAIL

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