서버의 필요한 모든 구성을 설정하면, 서버가 시작되었을 때와 중지되었을 때를 알 수 있는 2개의 유용한 이벤트가 있습니다.
이 이벤트는 서버가 시작되어 새 연결을 처리할 수 있을 때 발생합니다.
procedure OnStartup(Sender: TObject);
begin
WriteLn('#server started');
end;
이 이벤트는 서버가 중지되고 더 이상 연결이 수락되지 않은 후에 발생합니다.
procedure OnShutdown(Sender: TObject);
begin
WriteLn('#server stopped');
end;