[lmikle]

А что, так вот нельзя?

Код:

procedure TForm1.btn2Click(Sender: TObject);
var
  Dir: string;
  SearchRec: TSearchRec;
begin
  Dir := 'D:\';
  if FileCtrl.SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    begin
      Dir := IncludeTrailingPathDelimiter(Dir) + '*.txt';
      CopyDir(PChar (Dir), PChar ('C:\0_TEMP7'));
    end;
end;

Или целевая папка тоже как-то должна меняться/выбираться?