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
public
procedure actualizar_registro; end;
var
frm_clientes: Tfrm_clientes;
variable_global, variable_registro_actual: integer;
implementation
{$R *.dfm}
procedure Tfrm_clientes.actualizar_registro;
var
total_registros: integer; begin
total_registros := 10;
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.