AnsiString speichern und laden

[Willie1]

Hallo,
ich will einen AnsiString speichern und wieder öffnen. Habe ein Tutorium von Himitsu zum Thema gefunden.
Bevor ich das gefunden hatte, wollte ich es so machen:

Delphi-Quellcode:

  public
    Txt: AnsiString;
    Txtarray: TArray<Byte>;
    Path: TFilename;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  if Txt = '' then Exit;
  SetLength(Txtarray,Length(Txt));
  for i:=1 to Length(Txt) do Txtarray[i-1] := Ord(Txt[i]);
  TFile.WriteAllBytes(Path,Txtarray);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  TxtArray := TFile.ReadAllBytes(Path);
  Txt := '';
  for i:=0 to Length(Txtarray) do Txt := Txt + Chr(Txtarray[i]);
  Memo1.Text := Txt;
end;

Um Kompatibilität mit alten Delphi-Versionen geht es mir nicht. Geht das so in Ordnung?
Gruß Willie.