[lmikle]

Ну, если ты умеешь определять серию, то вот простенький пример:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ColorDialog1.Color := Chart1.Series[0].SeriesColor;
  if colorDialog1.Execute Then
    Chart1.Series[0].SeriesColor := ColorDialog1.Color;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  I : Integer;
begin
  For I := 1 To 10 Do
    Chart1.Series[0].AddX(Random(100));
end;

Вторая процедурка - просто случайные значения для отладки.