Konwersja koloru TColor do koloru używanego przez HTML

Na formularzu umieszczamy komponent ColorDialog z zakładki Dialogs. Aby po kliknięciu przycisku Button1 wybrać kolor z palety kolorów i wyświetlić jego szesnastkową wartość na etykiecie Label1:

Unit1.cpp

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   if (ColorDialog1->Execute())
   {
      int RGB; RGB = ColorToRGB(ColorDialog1->Color);
      TVarRec args[3] = {GetRValue(RGB), GetGValue(RGB), GetBValue(RGB)};
      Label1->Caption = Format("#%.2x%.2x%.2x", args, 3);
   }
}