MBo: Процедура AddFigure реализована плохо. Расширение массива на единицу - неправильный подход, медленный и
может жрать память (в зависимости от версии Delphi и соотв. менеджера памяти)

А вообще я не вижу смысла во введении всех этих объектов. Никакого полезного функционала, по крайней мере в текущей реализации, они в себе не содержат.

Так что лучше использовать то, что я посоветовал: матрица данных у Вас уже есть, в ней содержится вся необходимая информация. По значению элемента считаете цвет, рисуете прямоугольник. Лишние прокладки - нафиг.

https://forum.sources.ru/index.php?showtopic=419273&view=findpost&p=3835634