[poli-smen]

Сообщение от zibert

а можешь кинуть что то для примера.. может кому то еще пригодиться...

Пример:

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
  i, X, Y: Integer;
begin
  Canvas.MoveTo(0, 0);
  for i := 0 to 100 do
  begin
    X := i*10;
    Y := Random(200);
    Canvas.LineTo(X, Y);
  end;
end;