[micron18]

Сделал так:
...
ЗАПИСЬ

Код:

I:=Length(St);
BlockWrite(F,I,SizeOf(I));
BlockWrite(F,St,Length(St));

ЧТЕНИЕ

Код:

BlockRead(F,I,SizeOf(I);
BlockRead(F,St,I);

St опять пустая (((