TIdIRCSortCompareUsers = procedure (Sender :TObject; AItem1, AItem2 : TIdIRCUser; var AResult : Integer);