Не могу закрыть часть лота по профиту

Здравствуйте!
Помогите подалуйста с кодом, скажите что здесь не так! Смысл в следующем: При достижении определенного профита (переменная profitclose = 100 ), закрывается часть лота, который высчитывается (часть задается переменной chastlota = 5 ). Если профит еще увеличивается на profitclose = 100, закрывается еще часть лота, которая уже высчитана. Но почемуто при тестировании он закрывает что зря и куда зря, даже в убыток. Что я сделал неправильно?

Приводится часть кода. Функция взята из учебника и модифицирована. Была трейлингстоп.

extern int chastlota = 5;
extern int profitclose = 100;

int droblot = 1;

int dellots()
{
string str=Symbol();                        // Финанс. инструмент
b = OrderSelect(i, SELECT_BY_POS, MODE_TRADES);    //Выбираем ордер который есть
      Lot = OrderLots();
      Ticket = OrderTicket();                           // Номер выбранн. орд.
      Type = OrderType();
      ErrorOrder = 0;  
          if (Ticket > 0 && Type == 1)
         {
            Error0 = 1;                                 
            while (Error0 == 1)
            {
            lotsdel = NormalizeDouble(Lot/chastlota,1);
               if (lotsdel < MarketInfo(str, MODE_MINLOT))
                {
                lotsdel = NormalizeDouble(MarketInfo(str, MODE_MINLOT),1);
                }
               if (lotsdel > MarketInfo(str, MODE_MAXLOT))
                {
                 lotsdel = NormalizeDouble(MarketInfo(str, MODE_MAXLOT),1);
                }
            RefreshRates();
            a = OrderClose(Ticket,lotsdel,Ask,3);           
            Sleep(1000);
            Error = GetLastError();                    //Получаем значение ошибки
            Error0 = Fun_Error(Error);                 
            Ticket = 0;
            }
            droblot = droblot + 1;
            return;
           }
         if (Ticket > 0 && Type == 0)
         {
            Error0 = 1;                                   
            while (Error0 == 1)
            {
            lotsdel = NormalizeDouble(Lot/chastlota,1);
             if (lotsdel < MarketInfo(str, MODE_MINLOT))
                {
                lotsdel = NormalizeDouble(MarketInfo(str, MODE_MINLOT),1);
                }
               if (lotsdel > MarketInfo(str, MODE_MAXLOT))
                {
                 lotsdel = NormalizeDouble(MarketInfo(str, MODE_MAXLOT),1);
                }
            RefreshRates();
            a = OrderClose(Ticket,lotsdel,Bid,3);             
            Sleep(1000);   
            Error = GetLastError();                        //Получаем значение ошибки
            Error0 = Fun_Error(Error);                   
            Ticket = 0;
            }
         droblot = droblot + 1;
         return;
         }
       }