サーバーの必要なすべての設定を行った後、サーバーが起動したときと 停止したときを知るために役立つ2つのイベントがあります。
このイベントは、サーバーが起動して新しい接続を処理できるときに発生します。
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
このイベントは、サーバーが停止し、これ以上接続が 受け付けられなくなった後に発生します。
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;