Как обратиться к одному компоненту из найденного массива компонентов?

for i:= ComponentCount - 1 downto 1 do
    if (Components[i] is Tlabel)  then
       begin
    n:=n+1;
        ADOQuery1.Refresh;
   AdoQuery1.Locate('что то с базы',n,[]);
   label1.caption:=ADOQuery1.FieldValues['что то с базы'];

TLabel(Components[i]).Caption := ..

procedure TForm1.Timer1Timer(Sender: TObject);
var
  i,n:integer;
begin
    { for i:=1 to  ComponentCount do               }
  for i:= ComponentCount - 1 downto 1 do
    if (Components[i] is TiSevenSegmentAnalog)  then
       begin
    n:=n+1;
       ADOQuery1.Refresh;
   AdoQuery1.Locate('id',n,[]);
   TiSevenSegmentAnalog(Components[i]).Value:=ADOQuery1.FieldValues['Value'];
end;
end;
end.

ADOQuery1.FieldValues['Value'];

AdoQuery1.Locate('id',n,[]);

AdoQuery1.Locate('id',n,[]);

n := n + 1;

 for i:= ComponentCount - 1 downto 1 do
    if (Components[i] is TiSevenSegmentAnalog)  then
       begin