如何在Delphi中调用Oracle 的(包)package

用BDE连接Oracle
if QryViewMain.IsEmpty then
     exit;
  StoredPr:=TStoredProc.Create(nil);
  WITH StoredPr DO
  BEGIN       //CWCB_PAKES.SALE_CANPUTTONORMALSHIPBILL
       DatabaseName:='DBNAME';
       StoredProcName:=uppercas('CWCB_PAKES.SALE_CANPUTTONORMALSHIPBILL');
      Params.Clear;
      Params.CreateParam(ftstring, 'AXIAOHUODH', ptinput);
      Params.CreateParam(ftstring, 'AZHIZAODH', ptoutput);
      Params.ParamBYNAME('AXIAOHUODH').Value :=
             QRYVIEWMAIN.FieldByName('f_cXiaoHuoDH').asstring;
     { Params.PARAMBYNAME('AXIAOHUODH').ASSTRING :=
            QRYVIEWMAIN.FieldByName('f_cXiaoHuoDH').asstring; }
      PREPARE;  EXECPROC;  aZhiZaoDH:='';
                            //Params.
      aZhiZaoDH:= TRIM(Params.ParamBYNAME('AZHIZAODH').ASSTRING);
END;
  END;