TColorDialog gemme farver

Jeg er ret sikker på at der findes en simplere metode, men følgende ser ud til at virke:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TColorDialog *ColorDialog = new TColorDialog(0);

  TIniFile *Ini = new TIniFile("Whatever.ini");
  int i;
  for(i = 0; i < 16; i++)
  {
    AnsiString S1 = "Color";
    S1 += char('A' + i);
    AnsiString S2;
    S2 = Ini->ReadString("Colors", S1, "FFFFFFFF");
    ColorDialog->CustomColors->Add(S1 + "=" + S2);
  }
  if(ColorDialog->Execute())
  {
    Ini->EraseSection("Colors");
    AnsiString S = ColorDialog->CustomColors->Text;
    unsigned int idx = 1;
    for(i = 0; i < 16; i++)
    {
        AnsiString S1 = "Color";
        S1 += char('A' + i);
        idx += 7;
        AnsiString S2;
        while(S[idx] >= 32)
          S2 += S[idx++];
        idx += 2;
        Ini->WriteString("Colors", S1, S2);
    }
  }
}

tak