1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
 ZSpeicher:string;
 Datei:textfile;
begin
 Assignfile(Datei, OpenDialog1.FileName);
 Reset(Datei);
  While Not EOF(Datei) Do
   begin
    Readln(Datei, ZSpeicher);
    Listbox1.AddItem(ZSpeicher);
    Closefile(Datei);
   end;
end,					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  myStrL : TStringList;
begin
  myStrL := TStringList.Create;
  try
    myStrL.LoadFromFile('foo.txt');
    ListBox1.Items.AddStrings(myStrL);
  finally
    myStrL.Free;
  end;
end;