[saykl]

Допустим есть три прогрессбара. Они работают так:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Timer1.Enabled=false then ProgressBar1.Position:= ProgressBar1.Position -1;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
ProgressBar1.Position:= ProgressBar1.Position +20;
end;

Как мне графический, то есть диаграммой отобразить его. Либо в картинку(тогда через какое то время изображение периодический бы очищалось и диаграмма рисовалась заново) или в TChart . Отрисовать только линию без осей. Гуглил - не помогло