Ola Colegas estou com esse codigo, para aumento de posição! Mais as ordens limit, com distacia de 100, que deveriam estar separadas estão agrupadas em uma unica ordem!!! Alguem poderia apontar o erro?

Input
iDistancia(100);
iMaxposition(10);
iBuyDistance(100);
PeriodoDonch(8);
 
Var
DonchC,DonchB,DonchM : Float;
vBasePointC:Float;
vBasePointV:Float;
vCounter: Integer;
vOrderPointC:Float;
vOrderPointV:Float;

begin
  vBasePointC:=DonchB;
  vBasePointV:= DonchC;
  DonchC := DonchianCh(PeriodoDonch)|1|;
  DonchM := DonchianCh(PeriodoDonch)|0|;
  DonchB := DonchianCh(PeriodoDonch)|2|;
  plot(DonchC);
  plot2(DonchM);
  plot3(DonchB);
  
 Se  (LastCalcTime >= 0900) e (LastCalcTime < 1700) e (BuyPosition < iMaxposition)entao
 begin
 for vCounter:=(BuyPosition + 1)  to iMaxposition do
 begin
 
 vOrderPointC:= vBasePointC +(vCounter * iDistancia);
  Se (Fechamento < DonchM) e (Fechamento > vBasePointC) entao
        BuyLimit(vBasePointC,1); 
end;     
end;
Se  (LastCalcTime >= 0900) e (LastCalcTime < 1700) e (SellPosition < iMaxposition) entao 
 for vCounter :=(SellPosition + 1)to iMaxposition do
 begin
 vOrderPointV := vBasePointV + (vCounter * iDistancia);
 Se (Fechamento > DonchM) e (Fechamento < vBasePointV) entao
        SellShortLimit(vBasePointV,1);
end;
end;
end;