[VINCE_NT]

Подскажите пожалуста как сделать так чтоб из формы нельзя было выйти клавишами ALT+F4?

[Nyctos Kasignete]

Код:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caNone;
end;

или же если нужно запретить именно Alt+F4

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_F4) and (ssAlt in Shift) then Key := 0;
end;

[VINCE_NT]

спасибо! задал условие к первому варианту получилось как хотел

а второй вариант всеровно закрывает форму....

[PhoeniX]

Для второго надо задать KeyPreview в true