[LACV]

Buena tarde;

no encuentro el por que me genera este error

Access violation at address 006052F2

Código Delphi [-]
procedure TFrmUpdateCopy.BtnIniciarClick(Sender: TObject);
var
  Fuente, Destino, nameC: string;
  sPath: String;
  SR: TSearchRec;
begin

  Fuente := PChar(ExtractFilePath(Application.ExeName) + 'data\c\temp\update\');
  Destino := PChar(ExtractFilePath(Application.ExeName) + 'prueba\');

  sPath := Fuente;
  if sPath[Length(sPath)] <> '\' then
    sPath := sPath + '\';
  begin
    if FindFirst(sPath + '*.*', faAnyFile, SR) = 0 then
    begin
      repeat
        if (SR.Attr <> faDirectory) then
        begin
          Memo1.Lines.Add(SR.Name);
          Memo1.Lines.Add('Origen: ' + Fuente + SR.Name);
          Memo1.Lines.Add('Destino: ' + Destino + SR.Name);
          Memo1.Lines.Add(#13);

          Cancel := false;
          CopyFileEx(PChar(Fuente + SR.Name), PChar(Destino + SR.Name),
            @ProgressRoutine, nil, @Cancel, COPY_FILE_RESTARTABLE or
            COPY_FILE_NO_BUFFERING);
          ShowMessage(SysErrorMessage(GetLastError()));
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);

    end;
  end;

end;

modifique el codigo de esta forma para copiar diversos archivos del directorio, pero no logro entender el por que me arroja el error de Access violation at address 006052F2