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

[Smagulov85]

не могу сюда свой ProgressBar1 вставить, а он нужен
стандартное окно отключл сам

procedure TForm1.Button1Click(Sender: TObject);
  var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array [0..128] of Char;
x,y:string;
begin
x:='\\server\client\Client';//откуда;
y:='C:\id1\';//куды;
   FillChar( frombuf, Sizeof(frombuf), 0 );
  FillChar( tobuf, Sizeof(tobuf), 0 );
  StrPCopy( frombuf, x );
  StrPCopy( tobuf, y);
  with OpStruc do
  begin
    Wnd:= Handle;
    wFunc:= FO_COPY;
    pFrom:= @frombuf;
    pTo:=@tobuf;
    fFlags:= FOF_NOCONFIRMMKDIR or FOF_NOCONFIRMATION or FOF_SILENT;
    fAnyOperationsAborted:= False;
    hNameMappings:= nil;
    lpszProgressTitle:= nil;
  end;
  ShFileOperation( OpStruc );
 
end;

не копирует папки выдает ошибки на них

procedure TForm1.Button2Click(Sender: TObject);
Var SR:TSearchRec;
    FindRes:Integer;
    i, r: string;
   Retour: LongBool;
begin
ListBox1.Clear;
i:=''; // откуда
r:=''; // куда
 
FindRes:=FindFirst(i+'*.*',faAnyFile,SR);
While FindRes=0 do
   begin
      if ((SR.Attr and faDirectory)=faDirectory) and // если найденный элемент каталог и
      ((SR.Name='.')or(SR.Name='..')) then // он имеет название "." или "..", тогда:
         begin
            FindRes:=FindNext(SR); // продолжить поиск
            Continue; // продолжить цикл
         end;
      ListBox1.Items.Add(SR.Name);
       Retour := False;
       if not  CopyFileEx(pchar(i+SR.Name), pchar(r+SR.Name),@CopyCallBack,ProgressBar1,@Retour,COPY_FILE_RESTARTABLE)
    then ShowMessage(IntToStr(GetLastError));
      FindRes:=FindNext(SR);
 
   end;
FindClose(SR);
end;