Поиск замкнутых областей не равных красному цвету в Delphi

Есть изображение, на нем есть много красных областей разной площади, нужно выделить области не равные красному (они замкнутые) и посчитать их площади. Помогите пожалуйста. Нужно для диплома! Спасибо!