Como mandar mensaje desde delphi con un store procedure..ibx

[uper]

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.

[rastafarey]

Código Delphi [-]
ibquery.close;
ibquery.Sql.Text := 'Selec datos from procedure(....);'
ibquery.Open;
If ibquery.isemty Then
  showmessage('Tu mensage')
Else Begin
  //Haces lo debas hacer
End;