Delphi - Obtener valores RGB

Hola!

Como puedo obtener los valores RGB de un color dado.

var
R,G,B:Integer;
begin
// Descomposicion en valores RGB
R := GetRValue(Color);
G := GetGValue(Color);
B := GetBValue(Color);
// Muestro valores RGB
R_Edit.Text := IntToStr(R);
G_Edit.Text := IntToStr(G);
B_Edit.Text := IntToStr(B);

Suerte