Access violation at address 006052F2

[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

[mRoman]

Empezado por 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

Exactamente en que linea te lo marca??. Creo q será un error de acceso a una dirección de memoria, pero hay q estar seguros, asi que coméntanos -para darte una respuestas mas cercana a lo exacto-, que versión de Delphi usas, que componentes, base de datos, etc.

Saludos.