1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

function RGB2TColor(const R, G, B: Byte): Integer;
begin
  // convert hexa-decimal values to RGB
  Result := R + G shl 8 + B shl 16;
end;


procedure TColor2RGB(const Color: TColor; var R, G, B: Byte);
begin
  // convert hexa-decimal values to RGB
  R := Color and $FF;
  G := (Color shr 8) and $FF;
  B := (Color shr 16) and $FF;
end;

//Anwendungsbeispiel:
var
  R, G, B: Byte;
  Color: TColor;
begin
  Color := clBtnFace;
  TColor2RGB(Color, R, G, B);
  R := 114;
  G := 225;
  B := 0;
  Color := RGB2TColor(R, G, B);
end;