Пример 1. procedure TForm1.Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);

Var

X, Y: extended;

PX, PY: LongInt;

HalfHeight: LongInt;

begin

Canvas.Pen.Color: = clBlue;

Canvas.Pen.Width: = 4;

Canvas.MoveTo(10, 10);

Canvas.LineTo(300, 400);

Canvas.Brush.Color: = clRed;

Canvas.Rectangle(10, 10, 200, 200);

HalfHeight: = Form1.Height div 2;

For PX: =0 to Form1.Width do

begin

X: = PX*(2*Pi/Form1.Width);

Y: = Sin(X);

PY: = Trunc(0.7*Y*HalfHeight) + HalfHeight;

Canvas.Pixels[PX, PY]: = RGB(250, 0, 0);

end;

end;

Пример 2.

procedure TForm1.Button1Click(Sender: TObject);

Var

X, Y: extended;

PX, PY: LongInt;

i: LongInt;

HalfHeight: LongInt;

begin

Canvas.Pen.Color: = clBlue;

Canvas.Pen.Width: = 4;

Canvas.MoveTo(10, 10);

//Canvas.LineTo (300, 400);

Canvas.Brush.Color: = clRed;

Canvas.Rectangle(10, 10, 200, 200);

HalfHeight: = Form1.Height div 2;

For i: = -10 to 10 do

begin

PX: = 0;

while PX< Form1.Width do

begin

X: = PX*(2*PI/Form1.Width);

Y: = SIN(X);

PY: = Trunc(0.7*Y*HalfHeight)+ HalfHeight+(i*10);

IF(PX=0) then Canvas.MoveTo(PX, PY);

Canvas.LineTo(PX, PY);

PY: =Trunc(0.6*Y*HalfHeight)+ HalfHeight+((i - 1)*10);

Canvas.LineTo(PX, PY);

PX: = PX + 15;

end;

Form1.Canvas.Ellipse(200, 200, 400, 400);

Form1.Canvas.Pie (450, 300, 500, 400,

100, 100, 100, 200);

Form1.Canvas.Rectangle(400, 200, 450, 400);

end;

end;