后台撤单函数无效？　[金字塔]

09多头持仓量：=TBUYHOLDINGEX('' ,'if09' ,1 );

09委卖价:=DYNAINFO2(21 , 'if09');

MSGOUT(1 ,NUMTOSTR(09多头持仓量 ,0 ) );
GLOBALVARIABLE : a=0;
if a=0 then a:=1;
else a:=0;
if a=1 then begin

TBUY(1 ,1 ,lmt ,09委卖价-15*0.2,0 ,'' ,'IF09' );

MSGOUT(1 ,'a=1' ) ;
end

 if a=0 then begin

 TCANCEL( 1,0 );//撤所有未成交单
 MSGOUT(1 ,'撤单1' ) ;
TCANCELEX(1,0 ,'' ,'' );
MSGOUT(1 ,'撤单2' ) ;
 
 MSGOUT(1 ,'a=0' ) ;
 end
 SLEEP(1000 );

为了验证 撤单函数用法我写了一小段程序 ，不知道是不是 撤单函数写的不对？求教