function IdRawBuildIcmpUnreach(AType: byte; ACode: byte; AnOrigLen: word; AnOrigTos: byte; AnOrigId: word; AnOrigFrag: word; AnOrigTtl: byte; AnOrigProtocol: byte; AnOrigSource: TIdInAddr; AnOrigDest: TIdInAddr; const AnOrigPayload: integer; const APayloadSize: integer; var ABuffer): boolean;