TIdIRCOnLinks = procedure (Sender: TObject; AMask, AServer, AHopCount, AServerInfo: String) of object;