[crea]

Bargest
огромное спасибо работает только там нужно

Код:

      BlockRead(f,t,4);
      SetLength(s,t div 2);
      BlockRead(f,pointer(s)^,t);

у меня сhar 2 байти занимает
в Delphi 2010 кодировка Unicode насколько я понял....