Textdatei mit Sonderzeichen auslesen

[Cöster]

HI!

Ich hab ein paar Probleme damit, eine Textdatei auszulesen. Das liegt wohl daran, dass sie Sonderzeichen und Co. enthält. Mein Test-Code sieht so aus:

Delphi-Quellcode:

var
  Form1: TForm1;
  F: TextFile;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   S: string;
begin
   ReadLn(F, S);
   Memo1.Lines.Add(S);
end;

procedure TForm1.FormCreate(Sender: TObject);
const
   Path = 'C:\Users\Cöster\AppData\Roaming\Meine Die Schlacht um Mitte' +
      'lerde-Dateien\Replays\to be watched\gvsM,Fangorn,Uruks.rep';
begin
   AssignFile(F, Path);
   Reset(F);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
   CloseFile(F);
end;

Wenn ich Button1 nun mehmals klicke werden allerdings immer nur lückenhafte Bruchstücke der Datei in mein Memo geschrieben. Wie erhalte ich den gesamten Text der Datei?