IdRawBuildIcmpUnreach

procedure IdRawBuildIcmpUnreach(

  AType: UInt8;

  ACode: UInt8;

  AnOrigLen: UInt16;

  AnOrigTos: UInt8;

  AnOrigId: UInt16;

  AnOrigFrag: UInt16;

  AnOrigTtl: UInt8;

  AnOrigProtocol: UInt8;

  AnOrigSource: TIdInAddr;

  AnOrigDest: TIdInAddr;

  const AnOrigPayload: Integer;

  const APayloadSize: Integer;

  var VBuffer: TIdBytes

);