Foros Club Delphi - Como mandar mensaje desde delphi con un store procedure..ibx

saludos club delphi

Realize un store procedure que me devuleve tres valores para pasarselo a mi detalle de pedido, lo que quiero manejar es como puedo mandar un mensaje desde el programa de delphi, este es el Sp:

Código PHP:


		
			
Select orden_cantidad, orden_precio, orden_observacion from ORDENES where Orden_estado='A' and Orden_id=:CLAVE into :CANTIDAD, :PRECIO , :OBSERV;

hace una busqueda y si no lo encuentra que me de un mensaje de que
'No existe el articulo' no se como implementar desde codigo:

Código PHP:


		
			
lo que jago es esto desde el evento Onvalidate del campo, codigo:

with IBStoredProc1 do

   begin

   ParamByName('CLAVE').AsInteger:=BD.IbDetalleDET_ORDEN.Value;

   ExecProc;

   BD.IbDetalleDET_CANTIDAD.Value:=ParamByName('CANTIDAD').AsFloat;

   BD.IbDetalleDET_PRECIO.Value:= ParamByName('PRECIO').AsFloat;

   BD.IbDetalleDET_DESCRIPCION.Value:=ParamByName('OBSERV').AsString;

  end;

      ? que me diga que si no existe showmessage('no existe . . . ');

gracias.