Крестик закрытия программы

[skanku]

Как отключить крестик на форме, что бы программа не закрывалась на этот крестик

[Stilet]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 CanClose:=false;
end;

Или

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

Выбирай