GetColorGreen

Функция GetColorGreen() возвращает долю зеленого цвета в указанном цвете в абсолютных цифрах. Цвет может указываться цифровым значением или наименованием цветовой константы (например, "clSilver").

GetColorGreen(Color): Integer
Color: Integer	Числовой код цвета, либо наименование предопределенной цветовой константы: clLime, clSilver, ...
Функция возвращает количество зеленого цвета в указанном цвете

Пример вызова:

{Pascal Script}
Var
    res : Integer;

Begin
     res := GetColorGreen(clPurple);
     AddToDebugLog('Доля зеленого цвета в "clPurple" = ' + intToStr(res));
end.

Подробную информацию об "Окне отладочной информации" можно почитать здесь.