后臺撤單函數無效？　[金字塔]

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 );

為了驗證 撤單函數用法我寫了一小段程序 ，不知道是不是 撤單函數寫的不對？求教