Problem mit TOpenDialog...Laden in TStrings...

[divBy0]

Hallo!!

Ich sitze hier vor folgendem Problem:

Hab eine kleine Anwendung und möchte jetzt über ein OpenDialog eine Textdatei in ein TStrings-Objekt laden und dabei bricht das Programm mit EAccessViolation ab. Wenn ich die Datei aber direkt in ein Memo lade mit (z.B. Memo1.Lines.LoadFromFile(OpenDialog1.FileName)), dann funktioniert es.

Hier ist mal der Codeschnippel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  Datei : String;
begin
  OpenDialog1.Filter := 'DSP Preset (*.txt)|*.txt';
  if OpenDialog1.Execute then
  begin
    Datei := OpenDialog1.FileName;
  end;
  Memo1.Lines.LoadFromFile(Datei);  // <== das funktioniert
  DSPPreset.LoadFromFile(Datei);    // <== das nicht... :(
end;

DSPPreset ist als TStrings deklariert.


Danke schon mal...