[Deiv]

Bueno mas vale tarde que nunca dicen , me he respondido a mi mismo, por si a alguien le interesa:

Empezado por Deiv

¿Por qué la línea:

Código Delphi [-]
if (B.IndexOf(FieldByName('Tipo').AsString)= -1) then

NO TRABAJA IGUAL QUE:

Código Delphi [-]
if (ComboBox1.Items.IndexOf(FieldByName('Tipo').AsString)= -1) then

Código Delphi [-]
 
with ADOQuery1 do
  begin
    first;
    while not eof do
      begin
          if (B.IndexOf(FieldByName('Tipo').AsString)=-1) then
            begin
              B.Add(FieldByName('Tipo').AsString); 
              A[x]:=FieldByName('Tipo').AsString;
              inc(x);
            end;
        next;
      end;
  end;

THis is end.