Programm soll sich nicht beenden lassen

[xZise]

Entweder:
1. Mach ein Button auf die form, welche das schließen freigibt:

Delphi-Quellcode:

procedure OnButtonClick...
begin
  StopBlock := true;
  close;
end;

procedure OnCloseQuery...
begin
  CanClose := StopBlock;
end;

2. Programmiere in Programm:
Deaktiviere den Button, wenn "Delphi" läuft.