[LIONSMILE]

Здравствуйте!

Прокопался весь день, но уже наверное туплю, так как не получается сделать копирование файлов из папки. Суть такова. Программа распаковывает из архива папку, которая содержит файлы. Имена как самой папки и так и файлов постоянно разные. Степень вложения (то есть папка в папке) тоже разная. Мне необходимо выбрать из всего количества файлов, только файлы с расширением *.doc и скопировать их в другую папку, допустим Z:\Work. Смотрел в сторону функций модуля System.IOUtils но там необходимо знать исходный (фиг с ним смогу найти) и выходные файлы, также смотрел CopyFile - тоже глухо. Файлов может быть различное количество. Пытался так, не копирует:

Код:

var
  s: string;
  Sl: TStringList;
  i: Integer;

FindFiles(ExtractFileDir(Application.ExeName) + '\Temp', '*.doc', Memo1.Lines, true);
    Sl := TStringList.Create;
    Sl.Text := Memo1.Text;
    begin
      for i := 0 to Sl.Count - 1 do
      begin
        s := Sl.Strings[i];
        copyfile(PChar(s), PChar('Z:\Work'), True);
      end;
      Sl.Free;
    end;

Что делаю не так?
Спасибо.