[fofka]

Доброго дня всем.
Такой вопрос. Могу ли я изменить цвет столбца в графике с помощью ColorDialog?
Таким образом я получаю координаты:

Код:

procedure TForm1.Chart1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var r :Real;
    r1, r2 :String;
begin
R := Chart1.Series[0].XScreenToValue(X);
Edit01.Text:= FloatToStr(R);
R1:=Edit01.Text;
r2:=Copy(r1,1,Pos(',',r1)-1);
Edit02.Text:=r2;

 if
  r2='1'
   then
    begin
   N1.Visible:=True;
   N2.Visible:=False;

 end;
 if
  r2='2'
   then
    begin
   N1.Visible:=False;
   N2.Visible:=True;
 end;

То есть я знаю положение курсора и соответственно могу нажатием на N1 или N2 вызвать ColorDialog. Получается что при нажатии на N1 я получаю в ColorDialog текущий цвет, а при закрытии ColorDialog меняется цвет в графике. Хочется иметь возможность поменять цвет, не правя код, а в процессе работы. Edit01, Edit02 для визуального контроля при наладке, потом уберу. Благодарю за помощь.