[AleXXXSC]

Пробедил
Вместо

Код:

TC : record
  Name      : String[33];
  .....

Написал

Код:

TC : record
  Name    : array[0..32] of char;
  .....

Ассемблерный дебаг показал что хитрые строки в дельфи хранят еще и длину строки перед началом 1-го символа. Поскольку Name была объявлена как 33 символа, то для длины строки, видимо, хватило 1 байта. Похоже что 1-й символ поэтому и пропал, что начал обозначать длину строки. Это же и подтвердила операция

Код:

 S:=TC.Name+'' ;

когда при создании строки S было выделено количествро байтов равным коду 1-го символа. Видимо против всяких Stack overflow сдалали

P.S. Тему можно закрывать, за ответ спасибо.