procedure IdRawBuildIcmpRedirect(
    const AType: byte; 
    const ACode: byte; 
    AGateway: TIdInAddr; 
    const AnOrigLen: word; 
    const AnOrigTos: byte; 
    const AnOrigId: word; 
    const AnOrigFrag: word; 
    const AnOrigTtl: byte; 
    const AnOrigProtocol: byte; 
    AnOrigSource: TIdInAddr; 
    AnOrigDest: TIdInAddr; 
    const AnOrigPayload: TIdBytes; 
    var VBuffer: TIdBytes
);