下單進場執行 SetPosition(1)成功, 為何Position仍然為0

var: intraBarPersist tran_status(0);

if position = 0 and filled = 0 then begin

   if long_condition and tran_status=0 then begin

      SetPosition(1);

      tran_status = 1;

   end;

end else if position <> 0 and filled <> 0 then begin

   if exit_condition and tran_status=1 then begin

      SetPosition(0);

      tran_status = 0;

   end;

end;