[Dead_Gigabit]

Всем здраствуйте, с талкнулся с такой проблемой пишу запрос:

Код:

  DM.ARH.Active:=false;
  DM.ARH.SQL.Clear;
  DM.ARH.SQL.Add('select sum(case when (sklad.flag=''0'') then sklad.kol else 0 end)- sum(case when(sklad.flag=''2'') then sklad.kol else 0 end), name');
  DM.ARH.SQL.Add('sum(case when (sklad.flag=''0'') then sklad.summa else 0 end)- sum(case when(sklad.flag=''2'') then sklad.summa else 0 end),shet,price');
  DM.ARH.SQL.Add('from sklad ');
  DM.ARH.SQL.Add('WHERE DATEBAY  <= :D');
  DM.ARH.SQL.Add('and KOL >0');
  DM.ARH.SQL.Add('group by NAME, shet, price');
  DM.ARH.Parameters.ParamValues['D'] := formatdatetime('yyyy.mm.dd', (datetimepicker1.Date));
  DM.ARH.Active:=true;

Но почемуто в результат попадают значения меньшие нуля и сам ноль, в чем ошибка подскажите?