[angvelem]

Пропустил команду

имеется:

Код:

procedure TForm1.Scrollbar1Change(Sender: TObject);
begin
  cosa := cos(pi2 * Scrollbar1.Position / 360);
  sina := sin(pi2 * Scrollbar1.Position / 360);

  DrawRect;
end;

должно:

Код:

procedure TForm1.Scrollbar1Change(Sender: TObject);
begin
  Image1.Canvas.FillRect(Rect(0, 0, Width, Height));
  cosa := cos(pi2 * Scrollbar1.Position / 360);
  sina := sin(pi2 * Scrollbar1.Position / 360);

  DrawRect;
end;