Optimizar el sgte codigo

[[BlueSteel]]

Hola amigos... quiero hacer una consulta de como podria optimar más este código...

Datos -> Formulario de tipo DataModule
AQ_Select -> ADOQuery
vBus -> TEdit
CB_Buscar -> ComboBox

Código Delphi [-]
     Datos.AQ_Select.Close;
     Datos.AQ_Select.SQL.Clear;
     Datos.AQ_Select.SQL.Add('Select * From Socio');
     If CB_Buscar.ItemIndex = 0 Then
        Begin
             Datos.AQ_Select.SQL.Add('Where Soc_Rut Like'+QuotedStr('%'+vBus.Text+'%'));
        End
     Else If CB_Buscar.ItemIndex = 1 Then
        Begin
             Datos.AQ_Select.SQL.Add('Where Soc_Nombre Like'+QuotedStr('%'+vBus.Text+'%'));
        End
     Else If CB_Buscar.ItemIndex = 2 Then
        Begin
             Datos.AQ_Select.SQL.Add('Where Soc_Apellido Like'+QuotedStr('%'+vBus.Text+'%'));
        End;
     Datos.AQ_Select.Open;

La idea es que tengo un ComboBox, en donde tengo 3 Campos... entonces yo puedo selecionar si quiero buscar a un Socio por Rut (DNI), Nombre o Apellido, entonces utilizo un TEdit y ejecuto la consulta a través de un ADOQuery

Si bien la consulta me funciona super, es para evitar tener que escribir preguntas del Tipo If,.... y si en caso me llegara a tocar una consulta parecidad pero con unos 20 campos..(exageracion)