Error en Array

[Jere_84]

Gracias Al...

Anda perfecto sabes como podría consultar estos datos ya que en otra parte de mi codigo hago algo asi:

Código Delphi [-]
procedure TvFormuABMCiuda.JfEditValorBuscaChange(Sender: TObject);
begin
   if JfRadioGroupTipoBusca.Value = 1 then
    if (JfEditValorBusca.InputText = '') then
    begin
      DataModuleCiuda.ADODataSetCiudad.Filtered := False;
      DataModuleCiuda.ADODataSetCiudad.Filter := '';
    end
    else
    begin
      if BaseFieldTypes[JfComboBoxCampoBusca.ItemIndex] = ftString then
        DataModuleCiuda.ADODataSetCiudad.Filter := JfComboBoxCampoBusca.Value + ' LIKE ' + QuotedStr(JfEditValorBusca.InputText + '*' )
      else
        DataModuleCiuda.ADODataSetCiudad.Filter := JfComboBoxCampoBusca.Value + ' = ' + QuotedStr(JfEditValorBusca.InputText);
      DataModuleCiuda.ADODataSetCiudad.Filtered := True;
    end;

end;

Y me gustaría ver lo que se cargo en el BaseFieldTypes para ver que coincida con el campo que tengo en el combo...