variable:n=0;

if 平倉條件 and 持倉判斷 then begin

   平倉語句;

    if numprofit(1)>0 then n:=1;

end

if 開倉條件 and 持倉判斷  and n=1 then begin

   n:=0;

end

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

    開倉語句;

end