como copar un dirctorio con el progressbar1

[[kurono]]

hola de nuevo amigo ya se como copiar un diretorio pero como ponerle un progressbar1 a la oprecion de copiado a qui le muestro el codigo y me gustaria q me dijieran como ponerle un progressbar1 a este codigo

Código Delphi [-]
 
function CopiaTodo(Origen,Destino : String) :
  LongInt;
  var
 F : TShFileOpStruct;
 sOrigen, sDestino : String;
  begin
 Result := 0;
 sOrigen := Origen + #0;
 sDestino := Destino + #0;
 with F do
 begin
   wFunc := FO_COPY;
   pFrom := @sOrigen[1];
   pTo   := @sDestino[1];
   fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
 end;
 Result := ShFileOperation(F);
end;
begin
CopiaTodo('F:\archivos c\*.*','c:\archivos c\');
end;
end.