Ich denke, es ist einfacher mit TStrings.
Delphi-Quellcode:
function AddStringToFile(const Text: String; const FileName: String): Boolean;
var
List: TStrings;
begin
Result := False;
if not FileExists(FileName) then
Exit;
List := TStringList.Create;
try
List.LoadFromFile(FileName);
List.Add(Text);
List.SaveToFile(FileName);
Result := True;
finally
List.Free;
end;
end;
Beim nächsten mal aber bite vorher suchen, das gab es hier schon dutzende male.