[Delphi] Необходимо произвести копирование из одного shellListView1 в ShellListview2

[AsyaWill]

Делаю файловый менеджер.Необходимо произвести копирование из одного shellListView1 в ShellListview2
Пробовала двумя путями не получается,кто подскажет в чем проблема? Больше нужна помощь по первому кодуюВроде и пути передаю правильно,а во второй копировать все ранво не хочет
Хотя если укажу FOS.pTo:=@FPath[1]; копирование в туже директорию все работает

procedure TForm1.BitBtn1Click(Sender: TObject);   
var
  FOS: TSHFileOpStruct;
  FileOp: HRESULT;
  i: Integer;
  FPath: 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;  
            FOS.Wnd:= Application.Handle;
            FOS.wFunc:= FO_COPY;
            FOS.pFrom:=@FPath[1]; 
            FOS.pTo:=Pchar(ShellListView2.RootFolder.PathName);   
            FOS.fFlags:= FOF_RENAMEONCOLLISION or FOF_MULTIDESTFILES;   
            FOS.fAnyOperationsAborted:= False;  
            FOS.hNameMappings:= 0;
            FOS.lpszProgressTitle:= 0;  
          end;
  FileOp:= SHFileOperation(FOS);
end;
ShellListView1.Refresh;
ShellListView2.Refresh;
end;

И вот так

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  i:integer;
  FromF, ToF:String;
begin
 For i:=0 to ShellListView1.Items.Count-1 do
 If ShellListView1.Items[i].Selected then
 begin
  FromF:=ShellListView1.Folders[i].PathName + #0 + FromF + #0 + #0;
  Tof:=ShellListview1.RootFolder.PathName + #0;
  CopyFile(@FromF[1], @ToF[1], True{-перезаписывать если уже есть такой});
  ShellListview1.Refresh;
  ShellListview2.Refresh;
  end;
end;

[min@y™]

Дебаггером пользоваться умеешь?

[AsyaWill]

Нет(

[min@y™]

Сообщение от AsyaWill

Нет(

Без дебаггера написать файловый менеджер абсолютно НЕРЕАЛЬНО.
Если курсач совсем уже на дедлайне - заплати кому-нить головастому задроту денег, шоб он тебе сваял за ночь нечто на трояк. Имхо, написать что-то подобное самостоятельно у тебя шансов нет.

Ничего личного, просто я реалист.

[AsyaWill]

Я очень вас прошу помогите,я не понимаю в чем ошибка в первом коде.Я же вроде бы правильно указываю путь куда копировать или нет?

У меня осталась только эта процедура,все остальное я уже написала

Не сможете мне помочь?

[min@y™]

Сообщение от AsyaWill

Я очень вас прошу помогите,я не понимаю в чем ошибка в первом коде.Я же вроде бы правильно указываю путь куда копировать или нет?

У меня RADStudio Tokyo 10.2, тут нет ShellControls.
Подай заяву на аутсорсинг. Мож там тебе помогут.