procedure WriteChecksum(
    s: TIdStackSocketHandle; 
    var VBuffer: TIdBytes; 
    const AOffset: Integer; 
    const AIP: String; 
    const APort: Integer; 
    const AIPVersion: TIdIPVersion = ID_DEFAULT_IP_VERSION
); override;