procedure IdRawBuildTcp(
    const ASourcePort: word; 
    const ADestPort: word; 
    const ASeq: longword; 
    const AnAck: longword; 
    const AControl: byte; 
    const AWindowSize: word; 
    const AnUrgent: word; 
    const APayload: TIdBytes; 
    var VBuffer: TIdBytes
);