Fastreport eine Textdatei laden

[Kostas]

Hallo Zusammen,

unter Delphi5 konnte ich mit FastReport4 zur Laufzeit eine Textdatei in ein MemoView laden.
Die Textdatei enthält wirklich planen Text.

Exakt das gleiche funktioniert unter Delphi XE2 nicht mehr. Vermutlich wegen Unicode.
Schaue ich mir das Textfile mit Notepad an, ist alles in Ordnung. Lade ich den gleichen Text
in ein MemoView wie unten angezeigt, so sehe ich Chinesische Schriftzeichen.
Hat jemand eine Idee wie ich das umgehen kann?

Delphi-Quellcode:

procedure TfrmReport.frxReport1BeginDoc(Sender: TObject);
begin
  inherited;
  case aReportFormular of
    rfSEPALastschriftProtokoll: SetTextFileInMemoView('TextDatei',PrgPath+'\SEPA\ErgebnisLast.txt');
  end;
end;


{--------------------------------------------------------------------}
{}procedure TfrmReport.SetTextFileInMemoView(ObjectName,Datei:String);
{--------------------------------------------------------------------}
begin
  with TfrxMemoView(frxreport1.findobject( ObjectName )) do
  begin
    if FileExists(Datei) then
    begin
      Visible := true;
      Memo.clear;
      Memo.LoadFromFile(Datei);
    end;{if}
  end;{with}
end;{SetTextFileInMemoView}

Gruß Kostas