请问后台以下程序，PingCang满足了，但怎么不平多平空呢？

if islastbar then begin
 BuyHold:=tbuyholdingex(AccountID,\'\',1);
 SellHold:=tsellholdingex(AccountID,\'\',1);
end

...
//同时平多平空
PingCang:=BuyHold=1 and SellHold=-1;
if Pingcang then begin
  if dynainfo(25)>dynainfo(31) then begin
    tsellshort(1,1,lmt,dynainfo(28),AccountID);
    tsell(1,1,lmt,dynainfo(34)+JumpNum*mindiff);
  end
  if dynainfo(25)<dynainfo(31) then begin
    tsellshort(1,1,lmt,dynainfo(28)-JumpNum*mindiff,AccountID);
    tsell(1,1,lmt,dynainfo(34));
  end
end

请指点，谢谢。