Bei mir funktioniert das:
Delphi-Quellcode:
var List: TStringList;
procedure TForm1.Button1Click(Sender: TObject);
begin if OpenDialog1.Execute then
begin
List.LoadFromFile(OpenDialog1.FileName);
Memo1.Lines := List;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
List := TStringList.Create;
end;