Копирование в компоненте ShellListview

[AsyaWill]

Подскажите в чем проблема?Не копирует в ShellListView2

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;

[Cuprum5]

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

FPath:=ShellListView1.Folders[i].PathName + #0 + FPath + #0 + #0;

- а вот эти #0 что означают? Это правильно? Я Делфи не очень хорошо знаю, если что.
А, это типа символ нуля что-ли? А зачем там столько нулей? Это не ошибка случайно?

[eoln]

Куча тем и везде одно и то же. Дебагером надо учиться пользоваться (нужен для этого один палец любой руки)

FileOp:= SHFileOperation(FOS);

должно быть внутри цикла for
Нули, естественно, не нужны, они в данном случае отрезают конец. Собственно, и сам конец не нужен

[AsyaWill]

Исправила,но теперь копируется только один файл.Плюс то,что я копирую стало загружаться в папку ,где находится эта программа и создается копия папки в левом окне без расширения той папки,которая указана в левом окне(то есть в ту ,в которую мы копируем)

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;   //получение пути всех фалов
            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;   //true если операция была прервана афдыу в ином случае
            FOS.hNameMappings:=nil;
            FOS.lpszProgressTitle:=nil;  //указатель на строку заголовка для окна прогресса
            FileOp:= SHFileOperation(FOS);
          end;
end;
ShellListView1.Refresh;
ShellListView2.Refresh;
end;