Filtrar registros y guardar en Array

[Deiv]

Hola, gracias por la respuesta, pero

Empezado por eduarcol

No entiendo porq tantas cosas en el programa

mira que en este momento no tengo Delphi a mano, por ello no sé si va a funcionar tu sugerencia.
A vista (tal vez este equivocado como novato) el codigo trabajará recuperando toda la columna y todos los registros de "Tipo", sin embargo mi objetivo era que filtre sin repetir los mismos para los títulos de la Barra OutLook, así como en un principio planteé, pues si te das cuenta en:

Nombre         Tipo
Litio              Metal
Oxígeno         No Metal
Sodio            Metal
Manganeso    Anfótero
Cloro            No Metal
Calcio           Metal
Molibdeno      Anfótero
Helio             Gas Noble
...... etc, etc, etc, etc.

En "Tipo" existen muchos elementos que se repiten y Yo solo quiero rescatar aquellos 4; redundo: Metal, No Metal, Anfótero y Gas Noble.
Por ello tomé el ejemplo del ComboBox que este con su IndexOf y el -1 capturaba elementos sin repetirlos:

Código Delphi [-]
      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;

¿Alguna sugerencia?