Listbox Leeren

[JWeis]

Delphi-Quellcode:

if PathDialog1.Execute(Filesuch) =false then
  begin
    Exit;
  end{if}
  else
  begin
    EdtCopy0001.Text:=PathDialog1.LastPath;
    FindAllFiles(EdtCopy0001.Text, '*.*', true);
    for inte0001 := 0 to length(gFile0001) - 1 do
    begin
      LBxCopy0001.Items.Add(gFile0001[inte0001]);
      LBxCopy0002.Items.Add(GetFileVersion(gfile0001[inte0001]))
    end;{for-schleife}
  end;{else}

so rufe ich Pathdialog auf