請幫忙檢查這些代碼錯在那裡？？？

Question

CREATE PROCEDURE TStore_purch(@Spurchese int,@showerror char)
as
...
if @@error<>0
     begin
Rollback Tran  
           set @showerror='操作失敗！'
     end
        else
           begin
   Commit Tran
          set @showerror=' 審核成功！'
           end
在DELPHI中
begin
      Sbom.Close;
      Sbom.ProcedureName:='TStore_purch;
      Sbom.Parameters.Refresh;
      Sbom.Parameters.ParamByName('@Spurchese').Value:=strtoint(Tpurchese.Text);
      Sbom.execproc;
　　　　這裡用
application.MessageBox(application.Sbom.Parameters.ParamByName('@showerror').Value);為什麼不行？具體要怎樣寫
      end;

Answer 1

忘記說明我要的功能是在delphi中顯示成功與失敗的信息？