OpenDialog AccessViolation

[bigg]

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;