1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TMainform.Button1Click(Sender: TObject);
var
  Liste : TStringList;
begin
  ColorDialog1.Options := [cdFullOpen, cdAnyColor];
  Liste := TStringList.Create; // für die Werte von ColorA bis ColorP
  try
    Liste.Add('ColorA=' + IntToHex(123123, 8)); // Zeilen OHNE Leerzeichen!
    Liste.Add('ColorB=' + IntToHex(880088, 8));
//  ...
    Liste.Add('ColorP=' + IntToHex(16711935, 8));
    ColorDialog1.CustomColors := Liste;
  finally
    Liste.Free;
  end;
  ColorDialog1.Execute;
end;