Hola MaxiDucoli.
Realmente no entiendo bién lo que buscas hacer. Si es pasar el valor de la propiedad
TColor a sus correspondientes valores
RGB, podes hacer:
Código Delphi
[-]
procedure TColorToRGB(Color: TColor; var R, G, B: Byte);
begin
if Color shr 24 = $FF then
Color := GetSysColor(Color and $FF)
else if Color shr 24 > $02 then
Color := 0;
R := Color;
G := Color shr 8;
B := Color shr 16;
end;
Llamada ejemplo:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
R,G,B: Byte;
begin
Label1.Color:= $0012D4D6; TColorToRGB(Label1.Color, R, G, B);
Caption:= Format('Red: %d - Green: %d - Blue: %d',[R, G, B])
end;
Saludos.