¿Qué falla aquí?

[jdangosto]

Hola.

Tengo el siguiente código.

Código Delphi [-]
if edit1.Text = '' then begin
        MessageDlg('¡¡ Debe Introducir una Cadena a Buscar !!', mtInformation,
      [mbOk], 0);
      end //if
else begin
        case RadioGroup1.ItemIndex of
        0: begin
                buscar_nombre.Close;
                buscar_nombre.ParamByName('nom').AsString := edit1.Text+'%';
                buscar_nombre.Open;
                end;
        1: begin
                buscar_apellidos.Close;
                buscar_apellidos.ParamByName('ap').AsString := edit1.Text+'%';
                buscar_apellidos.Open;
                end;
        2: begin
                buscar_ciudad.Close;
                buscar_ciudad.ParamByName('ciu').AsString := edit1.Text+'%';
                buscar_ciudad.Open;
                end;
        3: begin
                buscar_notas.Close;
                buscar_notas.ParamByName('not').AsString := '%' + edit1.Text +'%';
                buscar_notas.Open;
                end;
        end;//case
end;//else

Al compilar no da níngun error, e incluso si realizo una búsqueda por Nombre, seleccionando el Item 0 del radiogroup funciona a la perfeccion. El problema que tengo es el siguiente:
- SI quiero volver a realizar una búsqueda introduciendo otro nombre en el edit no me funciona y seleccionando la opción 0 del radiogroup no se ejecuta.
- Cuando eligo cualquier otra opción del radiogroup da un error diciendo que el parametro 'nom' , que se pasa en la primera opción, no lo encuentra, cuando debería de estar actuando otro parametro según la opción que elijas.

¿Qué está mal?