[Sevas55]

спасибо за совет!
как очищать график на канве? PaintBox1.Canvas.Refresh почемуто не удаляет нарисованное с помощью moveto-lineto. в результате графики накладываются друг на друга при каждом нажатии на SpeedButton

Код:

procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
       PaintBox1.Canvas.Refresh;
          for x:=0 to 100 do
            begin
              PaintBox1.Canvas.Pen.Color:=cllime;
              PaintBox1.Canvas.moveto(x,214);
              PaintBox1.Canvas.lineto(x+1,random(214));
            end;
end;