Zdravím.
Zatim zkoušim do memo.
Ty první 2 řadky mně tam serou. Jsou to ty podadresaře xxxx\xxx\
Nějaký jiný zpusob, jak na to?
Děkují.

begin
  Memo1.Clear;
  TS := TStringList.Create;

   // if FindFirst('d:\*', faAnyFile, rec) = 0 then
      if FindFirst('e:\xxxx\xxxt\source\*', faAnyFile, rec) = 0 then
      begin
        repeat
          Memo1.Lines.Add(rec.Name);
          until FindNext(rec) <> 0;
          FindClose(rec);
      end;