[NumLock]

не спорю

как получить отдельные компоненты цвета?

Код:

var
  c0, c1: TColor;
begin
  c0:=$EECD7D;
  c1:=RGB($ff xor GetRValue(c0), $ff xor GetGValue(c0), $ff xor GetBValue(c0));
end;

одним ответом все вопросы...