#pas
    //charbuf: array[ 0..255 ] of Char;
     charbuf: array[ 0..511 ] of Char;