Código Delphi
[-]
Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('Select * From Socio');
case CB_Buscar.ItemIndex of
0: Datos.AQ_Select.SQL.Add('Where Soc_Rut Like'+QuotedStr('%'+vBus.Text+'%'));
1: Datos.AQ_Select.SQL.Add('Where Soc_Nombre Like'+QuotedStr('%'+vBus.Text+'%'));
2: Datos.AQ_Select.SQL.Add('Where Soc_Apellido Like'+QuotedStr('%'+vBus.Text+'%'));
else begin showmessage('No se encuentra el tipo');
exit;
end ;
End;
Datos.AQ_Select.Open;
Bueno yo veo que ya lo tenes resuelto, pero otra forma para que sea un poco mejor puede ser esta,
ya que el valo que viene es un integer, podes utilizar un CASE, y de esta menera no se ejecuta todo el Siclo de comparaciones de los IF.
En caso de que el index no sea valido, muestra un mensaje y sale!
saludos y bueno solo es otra alternativa