Code to delete all pending orders but not open orders

[lhx]

I'm trying to close all pending orders on a trigger... here's my code; for some reason I can't get it to close all 4 pending orders, only the first 2.

Code: Select all

begin
    if OrdersTotal > 4 then
     begin
     for i:=0 to OrdersTotal + 100 do
     begin
     OrderSelect(i, SELECT_BY_POS, MODE_TRADES);
     if (OrderType = tp_BuyStop) then DeleteOrder(OrderTicket);
     if (OrderType = tp_SellStop) then DeleteOrder(OrderTicket);
     end
      end;
     end;

[lhx]

Solved:

Code: Select all

 for i:=-1 to MyOrderCounter do
           begin
            OrderSelect(i, SELECT_BY_TICKET, MODE_TRADES);
            if (OrderType = tp_SellStop) then DeleteOrder(i);
            if (OrderType = tp_BuyStop) then DeleteOrder(i);