如何實現加倉？？？？

variable:n=0;

if 條件a and n=0 and 持倉判斷 then begin

    下單語句;

    n:=1;

end

if n=1 and b then n:=0;