64-Bit für TextFile / File of xxx

[stho]

irgendwas ist hier noch faul
vielleicht ein benutzerfehler von mir oder ein bug....

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

  Function GetString : String;
  begin
      result := 'Testtesttest...';
  end;

var
  tf : TextFile;
  sLine : String;
  aFile : STring;
begin
  aFile := 'C:\moep.txt';;

  try
    AssignFile64 (tf, aFile);
    Append(tf);
    while true do
    begin
      sLine := GetString;
      WriteLn(tf, sLine);
      sleep(10);
    end;
  finally
    CloseFile(tf);
  end;
end;

ist jetzt nicht der ÜBER-code, sollte aber nur zum testen sein
wie erkennbar sollte das Prgramm in einer Dauerschleife "Testtesttest..." zeilenweise in eine Datei schreiben.
nun, in der Datei kommt aber nur
"@ý BE hAE dAE àAE C:\moep.txt " aus...