for i := 0 to FList.Count-1 do
    begin
      Items[i] := ToReal(mt);
      if Items[i] < 0 then
       Items[i] := 0;//íèêàêèõ îòðèöàòåëüíûõ ÷èñåë
      if mt.ldata <> nil then
       mt := mt.ldata^;
      sum := sum + items[i];