[jachguate]

Una solución mas "a la delphi" sería elevar una excepción con la primera condición de error. Esto tiene muchas ventajas (se puede escribir un capítulo de un libro sobre ello), por ejemplo evita tener una serie de if's anidados al ir validando las condiciones.

Código Delphi [-]
begin
  if trim(eNombre.text) = '' then
  begin
    eNombre.SetFocus;
    raise Exception.Create('Error: debe introducir un nombre!');
  end;
  if radio_nombre.Checked then
  begin
    buscar_nombre.Close;
    buscar_nombre.ParamByName('nom').AsString := edit1.Text+'%';
    buscar_nombre.Open;  
  end
  else 
    raise Exception.Create('No existe ningún nombre!');

En este caso he elevado excepciones de la clase Exception, pero nada impide que uses clases propias para ello .

Hasta luego.