Временная шкала в TChart

[moon-guest]

Доброго времени форумчане!!!
У меня возникла потребность в использовании компонента TChart для построения графика по времени. Данные поступают 1 раз в секунду и должны строить график.
Мною был взят пример из демо версии этого компонента.

...
Series1.XValues.DateTime := true;
Chart1.BottomAxis.DateTimeFormat := 'hh:nn:ss';
...
procedure TForm1.Timer1Timer(Sender: TObject);
  procedure Animate(Series:TChartSeries);
  Begin    randomize;
    With Series do
    Begin
      Delete(0);
      AddXY( XValues.Last+1,Random(12));
    end;
  end;

begin
  Animate(Series1);
end;

И всё бы хорошо но при добавлении данных во временной шкале отображаются нули.

Может кто сталкивался с такой проблемой????

[moon-guest]

Спасибо тем кто откликнулся!!!
Решение нашлось.
При рассмотрении XValues.Last было выявлено увеличение даты, а не времени.
Лечение было банальным

procedure TForm1.Timer1Timer(Sender: TObject);
  procedure Animate(Series:TChartSeries);
  Begin    randomize;
    With Series do
    Begin
      Delete(0);
      AddXY( XValues.Last+0.00001,Random(12));
    end;
  end;

begin
  Animate(Series1);
end;

так как используется формат DOUBLE, но для начальной точки следует задать значение реального времени

AddXY( now,Random(12));

[Toxa]

если быть точным, то секунда, это не 0.00001 а 1/60/60/24