Преобразовать цвет RGB в оттенок серого на Delphi

Перевести значения RGB в оттенок серого поможет формула:

Gray := Round((0.299 * R) + (0.587 * G) + (0.114 * B));

В результате получается 8-битное число - чем выше значение, тем ярче цвет.

Однако, когда дело доходит до получения обычно контрастного цвета , число записывается вместе со значением $FFFFFF, а не вычитается / складывается из компонентов или делает другие чудеса на палочке.