Color puro de un RGB o TColor

[ecfisa]

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; // un color cualquiera...
  TColorToRGB(Label1.Color, R, G, B);
  Caption:= Format('Red: %d - Green: %d - Blue: %d',[R, G, B])
end;

Saludos.