filesize

[gusspagano]

ahh, entonces no es lo mismo linea que registro!!

esto es lo que hago:

Código Delphi [-]
procedure TForm1.btnOkClick(Sender: TObject);
var
  origen,destino,archivo: string;
  lista: textfile;
  lineas,contador,porcentaje: integer;
begin
  origen:=edtOrg.Text;
  destino:=edtDtn.Text;
  assignfile (lista, opdLst.FileName);
  reset (lista);
  lineas:=filesize(lista);
  showmessage (inttostr(lineas));
  contador:=0;
  porcentaje:=0;
  readln (lista,archivo);
  while not Eof (lista) do
  begin
    copyfile(pchar(origen+'\'+archivo),pchar(destino+'\'+archivo),true);
    readln (lista,archivo);
    contador:=contador+1;
    porcentaje:=trunc(contador*(100/lineas));
    Form1.ProgressBar1.Position:=porcentaje;
  end;
  copyfile(pchar(origen+'\'+archivo),pchar(destino+'\'+archivo),true);
  closefile (lista);
  form1.ProgressBar1.Position:=0;
  showmessage ('MISSION COMPLETE !!');
end;