procedure IdRawBuildEthernet(
    ADest: TIdEtherAddr; 
    ASource: TIdEtherAddr; 
    AType: word; 
    const APayload: TIdBytes; 
    var VBuffer: TIdBytes
);