TIdIRCOnDCCAccept = procedure (Sender: TObject; ANick, APort, AFileName, APosition: String) of object;