Optimizar el sgte codigo

[[cHackAll]]

Código Delphi [-]
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;