Client disconnectet aber OnClientDisconnect macht nichts?

[Pseudemys Nelsoni]

hi,

ich sende folgendes zu meinem client wenn er den befehl "QUIT" sendet:

ASocket.SendText(Format('ERROR :Closing Link: %s[%s] (%0:s)', [ConArray[i].nick, ASocket.RemoteHost]) + #13#10); der client disconnectet dann, aber wieso bekomme ich hier mein showmessage nicht angezeigt:

Delphi-Quellcode:

procedure TIRCd.ClientDisconnect(Sender: TObject; ASocket: TCustomWinSocket);
begin
  showmessage('hi');
end;

?

der client disconnectet ja, also müsste das event doch aufgerufen werden oder nicht?