TChart и TLineSeries

[Дmmm]

кладу на форму график:

TForm4Chart = class(TForm)
    Chart1: TChart;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
      Series1: TLineSeries;
      Row1: TList;
  end;

и пытаюсь нарисовать, но не получается:

procedure TForm4Chart.FormShow(Sender: TObject);
var
  j: Smallint;
  rp: pdouble;
begin
  Row1:=TList.Create;
  Chart1:=TChart.Create(Form4Chart);
  Series1:=TLineSeries.Create(Chart1);
  Series1.ParentChart:=Chart1;
  Chart1.AddSeries(Series1);
  Randomize;
  for j:=0 to 255 do
    begin
      New(rp);
      rp^:=Random(100)*0.1;
      Row1.Add(rp);
    end;
  Series1.Clear;
  for j:=0 to Row1.Count-1 do
    Series1.AddY(double(Row1[j]^));
  Series1.Repaint;
end;

что не так?

[Аватар]

А зачем Chart1 создаешь? Он уже создан. И серию в нем можно просто мышкой создать в design-time. А заполнять Y мало, нужно и X. AddXY метод, если не ошибаюсь. И Row1 совсем не нужен. Заполнять прямо в 1-ом цикле

[Дmmm]

Сообщение от Аватар

А зачем Chart1 создаешь? Он уже создан

да, именно в этом дело было, убрал Chart1:=TChart.Create(Form4Chart); и заработало. Спасибо!
А AddY, AddХY и просто Add работают одинаково.

[nn377]

Подскажите пожалуйста, как добраться в сойствам элемента,
из которых состоит TChartSeries.

У меня график из точек, высота точек задаётся в визуальном редакторе.

А мне нужно задавать её программно, разумеется разную.