GetColorRed

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

Синтаксис
GetColorRed(Color: Integer): Integer
Входные параметры
Имя параметра	Тип параметра	Описание
Color	Integer	Числовой код цвета, либо наименование предопределенной цветовой константы: clLime, clSilver, ...
Выходные параметры
Тип параметра		Описание
Integer		Количество красного цвета в указанном цвете

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

Var
    res : Integer;

Begin
     res := GetColorRed(clPurple);
     WriteValue('Virtual channel 99', res);
end.