Überspringt einfach Schleife!!!

[billi]

Hallo,
in folgendem Programm wird einfach die Ausgabeschleife am Ende Ignoriert! Und ich weis net wie ich das abstellen soll:

Delphi-Quellcode:

procedure TForm1.BErzeugenClick(Sender: TObject);
var
  Dateinamen: array of string;
  Dir: string;
  SearchRec: TSearchRec;
  i, j: integer;
begin
  Dir := LQuelle.caption;
  if FindFirst('c:\*.*', faAnyFile, SearchRec) = 0 then
  try
    i := 0;
    SetLength(Dateinamen, 1);
    Dateinamen[0] := SearchRec.Name;
    while FindNext(SearchRec) = 0 do
      begin
        i := i + 1;
        SetLength(Dateinamen, Length(Dateinamen) + 1);
        Dateinamen[i] := SearchRec.Name;
      end;
  finally
    FindClose(SearchRec);
  end;
  for j := Length(Dateinamen) to 0 do
    MSchleife.lines.add(Dateinamen[j]);
end;

Über einen guten Rat freue ich mich,
gruß
billi

[edit=r_kerber]Code durch Delphi-Tags ersetzt. Mfg, r_kerber[/edit]