[marcoszorrilla]

Quizás esta idea con punteros pueda servirte?

var
aTops: Array[1..9] of ^TDbedit;


procedure TfrDatRelojes.FormActivate(Sender: TObject);
begin
Reloj_Conectado:=True;
......


aTops[1]:=@DbeTop1;
aTops[2]:=@DbeTop2;
aTops[3]:=@DbeTop3;
aTops[4]:=@DbeTop4;
aTops[5]:=@DbeTop5;
aTops[6]:=@DbeTop6;
aTops[7]:=@DbeTop7;
aTops[8]:=@DbeTop8;
aTops[9]:=@DbeTop9;
end;


Procedure Mostrar(x:Integer);
var
n:Integer;
begin
For n:=1 to 9 do
begin
if n <= x then
begin
aTops[n]^.Visible :=True;
aTopc[n]^.Visible :=True;
alTopc[n]^.Visible:=True;
alTops[n]^.Visible:=True;
end
else
begin
aTops[n]^.Visible :=False;
aTopc[n]^.Visible :=False;
alTopc[n]^.Visible:=False;
alTops[n]^.Visible:=False;
end;
end;

end;

Un Saludo.