[Neftali [Germán.Estévez]]

Código Delphi [-]
if edit1.Text = '' then begin
        showmessage('¡¡ DEBE DE INTRODUCIR UN NOMBRE !!');
end
else begin
  if radio_nombre.Checked = true then BEGIN
        buscar_nombre.Close;
        buscar_nombre.ParamByName('nom').AsString := edit1.Text+'%';
        buscar_nombre.Open;
  END
  else begin
    showmessage('¡¡ NO EXISTE NINGÚN REGISTRO !!');
  end;
end;