Error de compilación (delphi)

[Striker]

Gracias por contestar!

el error me lo marca desde antes de ejecutar el procedimiento

{------------------------------------------------------------------}
unit unit_clientes;

interface

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

type
Tfrm_clientes = class(TForm)
grb_datos_clientes: TGroupBox;
edt_clave_cliente: TEdit;
edt_nombre_cliente: TEdit;
edt_apepat_cliente: TEdit;
edt_apemat_cliente: TEdit;
edt_direccion_cliente: TEdit;
edt_telefono_cliente: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
btn_inicio: TButton;
btn_anterior: TButton;
btn_siguiente: TButton;
btn_final: TButton;
Shape1: TShape;
lbl_numero_registro: TLabel;
btn_agregar: TBitBtn;
adotable_cliente: TADOTable;
btn_salir: TButton;
btn_guardar: TButton;
btn_modificar: TButton;
btn_borrar: TButton;
btn_cancelar: TButton;
procedure btn_salirClick(Sender: TObject);
procedure FormActivate(Sender: TObject);
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 := 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;

{-----------------------------------------------------------------------}


a lo que lei del error dice algo de una declaracion externa, no le hayo que pueda ser.

De nuevo gracias!