[odd]

А ещё легче это делать с помощью библиотеки Lib_bits. Тогда весь код в одну строчку уместится. Что-то типа такого:

blue:=scroll_right(color AND 255);
...
green:=scroll_right(color AND 65280);
...
red:=scroll_right(color AND 16711680);