Скнирование папки и добавление файлов в листбокс!

[Anfall]

Воспользовался советом: http://programmersforum.ru/showthread.php?t=33950 (Volkogriz).

function GetFiles(Path:String; Full: Boolean = False):TStrings;
   Var
   Rec:TSearchRec;
   TMP:TStrings;
   ls: String;
   i: integer;
begin
  Result:=TStringList.Create;
  if Path[Length(Path)]<>'\' Then Path:=Path+'\';
  //ChDir(Path);
  if FindFirst(Path+'\*.*',faAnyFile,Rec)=0 then
    begin
     if (Rec.Name<>'.')and(Rec.Name<>'..') then
       if (Rec.Attr and faDirectory) <> 0 then begin
       TMP:=GetFiles(Path+Rec.Name,True);
       Result.AddStrings(TMP);
       TMP.Free;
       end else Result.Add(Path+Rec.Name);

     while FindNext(Rec)=0 do
       begin
        if (Rec.Name<>'.')and(Rec.Name<>'..') then
         if (Rec.Attr and faDirectory) <> 0 then begin
         TMP:=GetFiles(Path+Rec.Name,True);
         Result.AddStrings(TMP);
         TMP.Free;
         end else Result.Add(Path+Rec.Name);
       end;
    end;

if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;
  FindClose(Rec);
end;




procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Items.Assign(GetFiles('C:\Windows\System32'));
end;

end.

Файлы в лисбокс добвляются но без начального пути (в примере это C:\Windows\System32). Я попробовал

 ListBox2.Items.Assign('C:\Windows\System32' +GetFiles(Listbox2.Items[ListBox2.ItemIndex]));

Но ругается на разные переменные. Помогите как исправить, заранее благодарен.

[mihali4]

Просто нужно убрать кусок в конце function GetFiles:

  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;

[roach1967]

Во втором коде ошибка появляется при попытке сложение строки (тип String) и списка строк (TStrings).
А для вывода полного пути, надо закоментировать последнюю проверку Full:

--- CUT ---

       end;
    end;

{if not Full then
  for i:=0 to Result.Count-1 do
   begin
     ls := Result[i];
     Delete(ls,1,Length(Path));
     Result[i] := ls;
   end;}
  FindClose(Rec);
end;