TIdIRCOnDCCSend = procedure (Sender: TObject; ANick, AIp, APort, AFileName, AFileSize: String) of object;