вот так вроде бы получается:
Код:
var F:File;
St:String;
begin
...
Seek(F,0);
BlockWrite(F,St,Length(St));
Seek(F,0);
St:='';
BlockRead(F,St,SizeOf(St));
...
Bargest: Оформляем код тегами!
В результате St принимает первоначальное значение, т.е. запись и чтение происходят нормально