[Zergatul]

Жесть, гениальный код)

Сделай:
Name: string;
Name:=ReadS(22)