Actually here is real code
Bah! Streams are too slow!

[pascal]procedure RP_AnsiString (PField: pointer; OP: TFieldOperation); typeprocscall;
begin
case op of
fio_Load: AnsiString(PField^):=ReadAnsiString();
fio_Save: WriteAnsiString(AnsiString(PField^));
fio_Skip: SkipAnsiString;
end;
end;[/pascal]