procedure TForm1.Button1Click(Sender: TObject);
var
  L: Longint;
  R, G, B: Byte;
begin
  if ColorDialog1.Execute then
  begin
    L := ColorToRGB(ColorDialog1.Color);
    R := GetRValue(L);
    G := GetGValue(L);
    B := GetBValue(L);        ShowMessage(IntToStr(R));  // 255
    ShowMessage(IntToStr(G));  // 255
    ShowMessage(IntToStr(B));  // 0
  end;
end;