Problem mit TSTringList

[Matrix Scripter]

Hi!
Ich will ein Programm schreiben das eine Textdatei öffnet und deren Inhalt
in einer List Box anzeigt.
Das ist mein Quelltext:
var
Form1: TForm1;
Liste: TStringList;
...


procedure TForm1.Button2Click(Sender: TObject);
begin
Liste.Create;
try
Liste.LoadFromFile('Beispiel.txt');
ListBox1.Items := Liste;
except
ShowMessage ('Fehler beim öffen der Datei!');
end;
end;

und immer wenn ich den Button2 nun trücke erscheint diese Fehlermeldung:

Zugriffsverletzung bei Adresse ... in Modul 'Dateiöffnen.exe' lesen von Adresse 0000000...

Was hab ich den Falschgemacht?

mfG Matrix Scripter

 

[vop]

Versuch mal statt
Liste.Create

Liste := TStringList.Create;


.vop

 

[Matrix Scripter]

Hi vop
Danke für die Antwort es klappt.


mfG Matrix Scripter