---

var
  x: Integer;
  x_rad: Real;
  y_pixel: Integer;
begin
  for x := 0 to 360 do
  begin
    Form1.Canvas.Pixels[50, 100 + x] := clBlack;
    Form1.Canvas.Pixels[50 + x, 360] := clBlack;
    Form1.Canvas.MoveTo(45, 303);
    Form1.Canvas.LineTo(55, 303);
    Form1.Canvas.TextOut(28, 295, '1');
    Form1.Canvas.MoveTo(45, 246);
    Form1.Canvas.LineTo(55, 246);
    Form1.Canvas.TextOut(28, 238, '2');
    Form1.Canvas.MoveTo(45, 188);
    Form1.Canvas.LineTo(55, 188);
    Form1.Canvas.TextOut(28, 180, '3');
    x_rad := x * (Pi / 180);
    y_pixel := 360 - Round((180 / Pi) * (1 - Sin(2 * x_rad)));
    Form1.Canvas.Pixels[50 + x, y_pixel] := clBlack;