Leider verstehe ich nicht so ganz was du da genau machen willst. Wieso so kompliziert? Wieso nicht mit einer TStringList und SafeToFile? Warum willst du das überhaupt als
ANSI speichern?
Delphi-Quellcode:
with TStringList.Create do
try
{ Speichern }
Text := String(DeinAnsiText);
SaveToFile(DeinFileName, TEncoding.ANSI);
{ Laden }
LoadFromFile(DeinFieleName, TEncoding.ANSI);
DeinAnsiText := AnsiString(Text);
finally
Free
end;