TIdIRCOnList = procedure (Sender: TObject; AChans: TStringList; APosition: Integer; ALast: Boolean) of object;