Копирование файлов с определенным расширением

[pandaaaaa]

Мне необходимо написать процедуру, которая будет копировать файлы с определенным расширением в заданную папку. Использую delphi XE7, пишу под OS X. При запуске приложения через PAServer выводиться системное сообщение "Permission denied". Права везде выставлены на 777. Вообщем не знаю что не так.

procedure TTipoDoljnoRabotat.KnopkaClick(Sender: TObject);
var
  FileList : TStringDynArray;
  s : string;
begin
  FileList := TDirectory.GetFiles('/Users/', '*.jpg', TSearchOption.soAllDirectories);

  for s in FileList do TFile.Copy(s, '/Volumes/USB DISK');
end;

Но если использовать к примеру

for s in FileList do ShowMessage(s);

то программа выведет все пути к файлам.
То есть проблема именно в TFile.Copy, хотя с TDirectory.Copy все работает на ура

[FaTaL]

Попробуйте копировать сами побайтно.

[pandaaaaa]

Спасибо, побайтно работает, осталось кое-что додумать с названиями файлов. Но все равно интересно, отчего не работает TFile.Copy?
Опять же, даже если делать просто

begin
TFile.Copy(FullPathFrom, FullPathTo )
end.

Выскакивает Permisson denied.