Listbox Auslesen und Verarbeiten

[Teekeks]

Hi!
Ich bin jetz zwar nicht alzu erfaren aber ich versuchs mal:

Delphi-Quellcode:

procerure TFormx.irgentwas;
var F:TextFile; //ich geh jetzt einfach davon aus das die "Datei" eine Textdatei ist
    line:string; 
    i:integer;
begin
  AssignFile(F,{path});
  Reset(F);
  while not EOF(F) do
  begin
    readln(F,Line);
    For i:=1 to legth(ListBox1) do
    begin
      if ListBox1.items[i]=line then
       Listbox2.items.add(line);
    end;
  end;
  closefile(F);
end;

und die verzögerung machst du am besten durchdelay({time}); oder so...
gruß Teekeks
Edit: Closefile hinzugefügt