Процедура для копирования папок

procedure TForm1.sButton1Click(Sender: TObject);
  var
  OpStruc: TSHFileOpStruct;
  frombuf, tobuf: array [0..128] of Char;
x,y:string;
begin
x:=''//откуда;
y:=''//куды;
   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_NOCONFIRMATION or FOF_RENAMEONCOLLISION;
    fAnyOperationsAborted:= False;
    hNameMappings:= nil;
    lpszProgressTitle:= nil;
  end;
  ShFileOperation( OpStruc );
 
end;

 function TForm1.GetWinDir: PAnsiChar;
var
  Buffer: array[0..1023] of Char;
begin
  GetWindowsDirectory(Buffer, Sizeof(Buffer) - 1);
  Result:=Buffer;
end;
procedure TForm1.sButton1Click(Sender: TObject);
 
   var
  i:integer;
  S: TFileStream;
  SDir, Buff, Buff2: String;
  Dbl: Boolean;
begin
  if not DirectoryExists('C:\'//путь к папке) then
    CreateDirectory(PChar('C:\'), nil);
 
  
    Archive1.Extract('C:\'+Archive1.Names.Strings[i],i);
 
  end;
  SDir:='C:\';
  Dbl:=False;
  for i:=0 to Length(SDir)-1 do
    if (Sdir[i] = '\') and (not Dbl) then
    begin
      Buff2:=Copy(SDir,i,Length(SDir));
      SetLength(SDir,i);
      SDir:=Sdir+Buff2;
      Dbl:=True;
end;