Fórum Exception class EStringListError with message List index out of bounds (-1). #471275

Boa noite galera! Estou com um problema no meu form de pesquisa com o seguinte erro: Exception class EStringListError with message ''''List index out of bounds (-1).

procedure TFPesquisa.SpeedButton1Click(Sender: TObject);
var w_Valor , w_Operador : String;
begin
If Length(Trim(Edit1.Text)) = 0 Then Edit1.SetFocus
Else If (CB_Ind.Enabled) and (CB_Ind.ItemIndex < 0) Then CB_Ind.SetFocus
Else Begin
w_Valor := Edit1.Text;
w_Operador := '''''''';
If CB_Ind.Enabled Then If CB_Ind.ItemIndex = 0 Then w_Operador := ''''AND'''' Else w_Operador := ''''OR'''';
If DataSource1.DataSet.Fields.Fields[Cb_Campos.ItemIndex].DataType = FtDateTime Then w_Valor := Inverte_Data(w_Valor);

w_Lst_Selec.Add(''''@OPERADOR'''' + w_Operador + ''''@CAMPO'''' + w_Lst_Campos[CB_Campos.
ItemIndex] + ''''@COND'''' + w_Lst_Cond[CB_Condicao.ItemIndex] + ''''@VALOR'''' + w_Valor);

Monta_Grid;
Monta_SQL;
end;
end;

O problema é justamente esse: não está listando os itens do Combo. E quando tento fazer a pesquisa o form apresenta o erro que citei acima.

O mais incrível é que no Delphi 7 funciona perfeitamente, mas no XE5 está dando esse problema...