Depois de definir todas as configurações necessárias do seu servidor, há 2 eventos úteis para saber quando o servidor foi iniciado e quando foi parado.
Este evento é disparado quando o servidor foi iniciado e pode processar novas conexões.
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
Este evento é disparado após o servidor ter parado e nenhuma outra conexão ser aceita.
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;