Запрет на закрытие программы Windows 7

[ELForcer]

Всем доброго дня! Возникла необходимость запретить закрытие программы пока не выполнится до конца процедура.

Немного покопал в Инете, нашёл про процедуры в формах "OnClose, OnCloseQuery", скрытие красного крестика, след код

DeleteMenu(GetSystemMenu(Handle, false), SC_CLOSE, MF_BYCOMMAND);

который должен как бы скрыть кнопнку "Закрыть" в панели задач.
Крестик сделать неактивным удаётся, но в 7ке кнопка "Закрыть" остается активной и при на неё нажатии программа закрывается.

Как можно полностью заблокировать закрытие программы? (Оставить убивать процесс через диспетчер задач естественно оставить).

[_SERGEYX_]

запретить закрытие программы пока не выполнится до конца процедура

var x: boolean;
.............
procedure doit;
begin
x:=False;

//чего-то делаем

x:=True;
end;

procedure TfMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:= x;
end;