procedure IdRawBuildIcmpMask(
    AType: byte; 
    ACode: byte; 
    AnId: word; 
    ASeq: word; 
    AMask: longword; 
    const APayload: TIdBytes; 
    var VBuffer: TIdBytes
);