Разгребаю старый код одного чувака. Нашел строчки: > id := 0; > for I := 0 to cartList.Count - 1 do > begin > inc( id ); > end; > maxCartID := id; Много думал.