procedure TForm1.Button1Click(Sender: TObject);
const Values: array[0..2] of string = ('Soc_Rut', 'Soc_Nombre', 'Soc_Apellido');
begin
Datos.AQ_Select.Close;
Datos.AQ_Select.SQL.Clear;
Datos.AQ_Select.SQL.Add('select * from Socio where ' + Values[CB_Buscar.ItemIndex] + ' like ''%' + vBus.Text + '%''');
Datos.AQ_Select.Open;
end;