Frage zu LoadFromFile

[Klaus01]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 openDialog: TOpenDialog;
begin
  openDialog := TOpenDialog.create(nil);
  try
    opendialog.Filter:= 'Txt-Files (*.txt)|*.txt';
    if openDialog.Execute then 
      begin
        Listbox1.Clear;
        Listbox1.Items.LoadFromFile(openDialog.Filename);
     end;
  finally
    openDialog.free;
  end;
end;

Grüße
Klaus