TDrawItemList

var
  d: TDish;
  Modi: TModiItem;
  ModiQnt: Integer; 
begin
  if not RKCheck.Valid then Exit;
  if not SYS.ObjectInheritsFrom(TObject(RKCheck.CurrentCheckItem), 'TDish') then Exit;
 
  ModiQnt := 0;
  d := TDish(RKCheck.CurrentCheckItem);
  for i := 0 to TDrawItemList(d.Modifiers).ItemCount - 1 do begin 
    Modi := TModiItem(TDrawItemList(d.Modifiers).Items[i]);
    ModiQnt := ModiQnt + Modi.ModiCnt;
  end;
end;