Finalizar una Condición

[jdangosto]

Hola.

Tengo el siguiente código

Código Delphi [-]
if edit1.Text = '' then
        showmessage('¡¡ DEBE DE INTRODUCIR UN NOMBRE !!');

if radio_nombre.Checked = true then
BEGIN
        buscar_nombre.Close;
        buscar_nombre.ParamByName('nom').AsString := edit1.Text+'%';
        buscar_nombre.Open;
        END
else showmessage('¡¡ NO EXISTE NINGÚN REGISTRO !!');

Este código no da ningún tipo de error, lo que pasa es que no me funciona como quisiera. La idea es que si el edit está vacio muestre el mensaje, y lo hace, pero tb muestra el mensaje siguiente de la siguiente condicion IF, es decir, que la ejecución del código sigue hasta que llega a su fin.

¿Cómo puedo solventar esto?

Espero explicarme con claridad.