Delphi ya cuenta con funciones para decodificar un color:
Código Delphi
[-]
function RGB(r, g, b: Byte): COLORREF;
function GetRValue(rgb: DWORD): Byte;
function GetGValue(rgb: DWORD): Byte;
function GetBValue(rgb: DWORD): Byte;
function rgb
esas están en la unidad windows, pero también tienes otras en graphics, por ejemplo ColorToRGB
Saludos