// RGB to TColor Values
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Color := RGB(58, 110, 165);
end;

// TColor to RGB values
procedure TForm1.Button2Click(Sender: TObject); 
var 
  Color: Longint; 
  r, g, b: Byte; 
begin 
  Color := ColorToRGB(Edit1.Color); 
  r     := Color; 
  g     := Color shr 8; 
  b     := Color shr 16; 
  label1.Caption := ' Red  : ' + IntToStr(r) + 
    ' Green: ' + IntToStr(g) + 
    ' Blue : ' + IntToStr(b); 
end;