Listbox

[yankee]

Delphi-Quellcode:

procedure AddItems;
var datei:textfile;
    temp:string;
begin
assignfile(datei,'c:\datei.txt'); //datei öffnen
reset(datei); //mit nur Lesezugriff öffnen
while not eof(datei) do //eof=end of file
begin
readln(datei,temp); //aktuelle Zeile auslesen
Listbox1.Items.Add(temp); //"   "    hinzufügen
end;
closefile(datei); //datei schließen
end;

Sollte so funzen. Ich hab's allerdings nicht getestet...
Schreib mal, ob's tut...

EDIT: Quelltext kommentiert
EDIT2: Source gemäß Beitrag von Benedikt korrigiert