procedure ElNombreQueSea;
Const
csSql = 'SELECT Nombre, Apellidos, Direccion, Ciudad, Contactos."Tlf.Trabajo",'+
' Contactos."Tlf.movil", Mail, Notas, Contactos."Tlf.casa" FROM "contactos.DB" '+
'Contactos where (%s LIKE ''%s'')';
csCampos: Array[0..3] Of String = ('Nombre', 'Apellidos', 'Ciudad', 'Notas');
begin
If Edit1.Text = '' Then
MessageDlg('¡¡ Debe Introducir una Cadena a Buscar !!', mtInformation,[mbOk], 0)
Else Begin
If ElMismoQuery.Active Then
ElMismoQuery.Close;
ElMismoQuery.SQL.Text := Format(csSql, [csCAmpos[RadioGroup1.ItemIndex], '%'+Edit1.Text+'%']);
ElMismoQuery.Open;
End;
end;