Копирование файлов

[AsyaWill]

Делаю файловый менеджер.Использую компонент shellListView1 и ShellListview2
Не копирует и ошибок не выдает,может кто может помочь?
procedure TForm1.BitBtn1Click(Sender: TObject);
    //копирование
var
  FOS: TSHFileOpStruct;
  FileOp: HRESULT;
  i: Integer;
  FPath,FPath1: String;
begin
  With FOS do
    begin
       For i:=0 to ShellListView1.Items.Count-1 do
        If ShellListView1.Items[i].Selected then
          begin
            FPath:=ShellListView1.Folders[i].PathName + #0 + FPath + #0 + #0;   //получение пути всех фалов
            FPath1:=ShellListView2.RootFolder.PathName + #0;
            FOS.Wnd:= Application.Handle;
            FOS.wFunc:= FO_COPY;
            FOS.pFrom:=@FPath[1]; //указатель на строку с именем исходного файла
            FOS.pTo:=@FPath1[1];  //указатель на строку с именем файла в который копируется исходный файл
            FOS.fFlags:= FOF_RENAMEONCOLLISION or FOF_MULTIDESTFILES;   //указывает что ...
            FOS.fAnyOperationsAborted:= False;   //true если операция была прервана афдыу в ином случае
            FOS.hNameMappings:=nil;
            FOS.lpszProgressTitle:=nil;  //указатель на строку заголовка для окна прогресса
          end;
  FileOp:= SHFileOperation(FOS);
end;
ShellListView1.Refresh;
ShellListView2.Refresh;
end;

[min@y™]

Судя по дефолтным именам компонентов, понатыканых на форму с дефолтным именем, рановато тебе ещё писать файловые менеджеры.

[AsyaWill]

Не подскажите в чем ошибка?Курсовой проект надо сдавать,я уже отчаялась(