Farbe in ColorBox ereiteren

[thomas2009]

In OnFormCreate lege ich eine neue Farbe

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
ColorBox1.Items.Add('Mehr Farben');
end;

dann möchte ich eine neue Farbe von einer Tabelle laden:

Delphi-Quellcode:

procedure TForm1.ColorBox1Change(Sender: TObject);
begin
IF ColorBox1.ItemIndex=ColorBox1.Items.Count-1 THEN begin
ColorDialog1.Execute;
ColorBox1.Colors[colorbox1.ItemIndex]:= ColorDialog1.Color;// Fehler !!!
...
end;
end;