liste alle FTP Daten. hatt noch kleine Fehler

[Deltachaos]

ok Ich hab schon angefangen

Delphi-Quellcode:

procedure list(dir: string);
var d, all: integer;
    dirja: boolean;
begin
  form1.IdFTP1.ChangeDir(dir);
  form1.IdFTP1.List(form1.ListBox3.Items, '*', false);
  for all:=0 to form1.ListBox3.Count-1 do
  begin
    dirja:= true;
    for d:=0 to length(form1.ListBox3.Items[0]) do
      begin
        if form1.ListBox3.Items[0][d]= '.'
        then
        begin
          form1.ListBox2.AddItem(form1.ListBox3.Items[0], TObject (form1));
          form1.ListBox3.Items.Delete(0);
          dirja:= false;
        end;
      end;
    if dirja then
    begin
      list(form1.ListBox3.Items[0]);
      form1.ListBox3.Items.Delete(0);
    end;
  end;
end;

Ich binn eigenlich der meinung das das richtig ist aber irgendwie will es noch nicht so wie ich will.
auserdem brauche ich ja den kompletten pfad zur datei wie mache ich dass?