Wenn du verhindern willst, dass deine Serveranwendung beendet wird, dann kannst du das über das Event
OnLastRelease verhindern:
Delphi-Quellcode:
procedure TMainForm.FormCreate(Sender: TObject);
begin
// Wenn die Anwendung über COM hochgezogen wurde und der letzte Client die Verbindung
// beendet dann Anwendung nicht beenden (wird in dem Event-Handler gesteuert).
ComServer.OnLastRelease := Self.HandleComServerOnLastRelease;
...
procedure TMainForm.HandleComServerOnLastRelease(
var Shutdown: Boolean);
begin
// Anwendung weiter laufen lassen, wenn der letzte Client die Verbindung abbaut
ShutDown := False;
end;