Filtrar registros y guardar en Array

[Deiv]

Encontré este ejemplo en el Foro de Ruben_Cu:

Código Delphi [-]
 
with TuTabla do
          begin
               DisableControls; //puede no ser necesario
               first;
               while not eof do
               begin
                    if (ComboBox1.Items.IndexOf(FieldByName('Idiomas').AsString)=-1)then //en caso que existan registros iguales solo cargaría uno
                    ComboBox1.Items.Add(FieldByName('Idiomas').AsString);
                    next;
               end;
               EnableControls; //puede no ser necesario
          end;
          ComboBox1.ItemIndex:=1;

Y Yo lo implemente algo parecido a lo siguiente (No tengo en estos momentos Delphi a mano):

Código Delphi [-]
 
x:=0;
with TuTabla do
          begin
               DisableControls; //puede no ser necesario
               first;
               while not eof do
               begin
                    if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)=-1)then //en caso que existan registros iguales solo cargaría uno
                        begin
                           ComboBox1.Items.Add(FieldByName('Tipo').AsString);
                           A[x]:=FieldByName('Tipo').AsString;
                           inc(x);
                        end;
                    next;
               EnableControls; //puede no ser necesario
          end;
          ComboBox1.ItemIndex:=1;

Pero el problemita de este ejemplo para mi aplicación es que no requiero de un ComboBox en mi Formulario, es decir para nada me hace falta ese ComboBox, Yo solo trato de guardar esos datos en un array, ¿Cómo se puede hacer?