TColor2TRGB

function TColor2TRGB(cl: TColor): TRGB;

Converts a TColor to TRGB.

var
  rgb: TRGB;
Begin
  rgb := TColor2TRGB( clRed );
  // Which is the same as rgb := CreateRGB( 255, 0, 0 );
...
End;