Das müsste mit OnQuit gehen, also z.B.:
Delphi-Quellcode:
procedure TForm1.IdIRC1Quit(Sender: TObject; AUsers: TIdIRCUsers;
AChannel: TIdIRCChannel);
var b:Byte;
begin
lbxUserOnline.Clear;
for b:=0 to IDIRC1.Users.Count-1 do
lbxUserOnline.Items.Add(IDIRC1.Users.Items[b].Nick);
end;
MFG