Gauge ou ProgressBar na copia dos Aquivo, alguem sabe ?

procedure TForm1.Button2Click(Sender: TObject); 
var 
SR: TSearchRec; 
I: integer; 
Origem, Destino: string; 
begin 
Gauge.Min := 0;
I := FindFirst(´C: \Origem\*.*´, faAnyFile, SR); 
while I = 0 do begin 
GauGe.Progress := GauGe.Progress + 1;
if (SR.Attr and faDirectory) <> faDirectory then begin 
Origem := ´C: \Origem\´ + SR.Name; 
Destino := ´A: \Destino\´ + SR.Name; 
if not CopyFile(PChar(Origem), PChar(Destino), true) then 
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino); 
end; 
I := FindNext(SR); 
end; 
end;

  Procedure TForm1.Button2Click(Sender: TObject); 
  var 
    Arquivos: TFindFile; 
    I: integer; 
    Origem, Destino: string; 
  begin 
    Arquivos.Filter := ´*.*´;
    Arquivos.Directory := ´C:\Origem´;
    Arquivos.Execute;
    For I := 0 to Arquivos.FileNames.Count-1 do
    begin
      ProgressBar.Progress := Trunc((I*100)/FileNames.Count); 
      Origem := ´C:\Origem\´ + Arquivos.FileNames[I]; 
      Destino := ´A:\Destino\´ + Arquivos.FileNames[I]; 
      if not CopyFile(PChar(Origem), PChar(Destino), true) then 
        ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino); 
    end; 
  end;