Динамический график

[rmise]

Добрый день форумчане! Пишу диплом, застрял на одном вопросе:
Примерно каждые 2 секунды программа опрашивает датчик, ответ в форме: (время, значение). При открытии формы программа должна нарисовать график значений (например за последний час). Когда приходят новые данные нужно чуть дорисовать график, а самое первое значение (которое было час назад) удалить из графика.
Для примера можно посмотреть "Хронологию загрузки ЦП" в диспетчере задач.
Мое идеи (не очень удачные):
1. Реализовать с помощью PChar, но перерисовывать каждые 2 секунды график будет трудоемко для машины.
2. Думал рисовать Canvas-ом на каком-нибудь компоненте: нарисовать основной график, при добавленеии увеличть ширину компонента, дорисовать, уменьщить ширину компонента, поправить left и top. Проблема в том что я не знаю как сделать, чтобы ширина отсчитывалась с правого края.


Может у кого есть идеи получше? Или может компоненты специальные есть?

[Stilet]

Обсуждалось уже.
Чтоб график двигался нужно:

 Chart1.BottomAxis.AutomaticMinimum:=false;
 Chart1.BottomAxis.Minimum:=Chart1.BottomAxis.Minimum+1;

Понятен смысл?

[rmise]

Спосибо большое, вроде получилось!!!

[rmise]

только не совсем
написал так:

Series1.XValues.DateTime := true;
Chart1.BottomAxis.Automatic := false;
Chart1.BottomAxis.Maximum := Time;
Chart1.BottomAxis.Minimum := StrToTime('18:50');

for i:=1 to 50 do begin
T := IncSecond(ggg,i);
Series1.AddXY(T, i);
end;

график не выводит,
а если убрать
Chart1.BottomAxis.Automatic := false;
Chart1.BottomAxis.Maximum := Time;
Chart1.BottomAxis.Minimum := StrToTime('18:50');
то все работает
почему мой код не работает?