[[Ohcan]]

Pues a mí no me marca error.

Claro que he eliminado líneas y comentado otras:

Código Delphi [-]
unit unit_clientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tfrm_clientes = class(TForm)
    lbl_numero_registro: TLabel;
  private
    { Private declarations }
  public
    procedure actualizar_registro; //<--- aqui es donde me marca el error
  end;

var
  frm_clientes: Tfrm_clientes;
  variable_global, variable_registro_actual: integer; //var_global, var_regactual

implementation

//uses unit_menu;

{$R *.dfm}

{-----------------------------------------------------------------------}
//despues de todo eso sigue el codigo del procedure actualizar_registro;
{-----------------------------------------------------------------------}

//Procedimiento que actualiza los numeros de registros de la barra de //desplazamiento

procedure Tfrm_clientes.actualizar_registro;
var
  total_registros: integer; //var_totcampos
begin
  //obtenemos el total de registros que hay en la tabla
  total_registros := 10;//adotable_cliente.RecordCount;

  case variable_global of
    1: begin
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    2: begin
         variable_registro_actual := variable_registro_actual - 1;
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    3: begin
         variable_registro_actual := variable_registro_actual + 1;
         lbl_numero_registro.Caption := IntToStr(variable_registro_actual) +
                                        ' DE ' + IntToStr(total_registros);
       end;
    4: begin
         lbl_numero_registro.Caption := IntToStr(total_registros) +
                                        ' DE ' + IntToStr(total_registros);
       end;
  end;
end;

end.

Sobre todo he quitado los uses unit_menu; y lo referenta a bbdd.