По точке Color нельзя получить цвет без вызова doRGB, исправляется за 1 секунду просто скопировать

var r,g,b:byte;
begin
r := ReadInteger(_Data,_data_R,_prop_R);
g := ReadInteger(_Data,_data_G,_prop_G);
b := ReadInteger(_Data,_data_B,_prop_B);
FColor := r + g shl 8 + b shl 16;

в

procedure THIRGB._var_Color;

Можете эту ошибку исправить ? Что бы лишние связи не добавлять