Рисование ломаной кликами мыши

procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var i,a,b:integer;
  begin
  canvas.MoveTo(X,Y);
  canvas.pen.color:=clRed;
  for i:=1 to 10 do begin
  canvas.lineto(X,Y);
  canvas.moveto(X,Y);
  end;

var
  Form1: TForm1;
  k,x1,y1,x2,y2:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
with PaintBox1.Canvas do
 begin
  Brush.Color:=clYellow;
  FillRect(ClipRect);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
k:=0;
with PaintBox1.Canvas do
 begin
  Brush.Color:=clYellow;
  FillRect(ClipRect);
  Pen.Color:=RGB(random(255),random(255),random(255));
 end;
end;
 
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if k=0 then
 begin
  x1:=x;
  y1:=y;
  k:=1;
 end
else
 begin
  x2:=x;
  y2:=y;
  PaintBox1.Canvas.MoveTo(x1,y1);
  PaintBox1.Canvas.LineTo(x2,y2);
  x1:=x2;
  y1:=y2;
 end;
 
 
end;

var
  Form1: TForm1;
  k,x1,y1,x2,y2:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
with Image1.Canvas do
 begin
  Brush.Color:=clYellow;
  FillRect(ClipRect);
 end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=0;
with Image1.Canvas do
 begin
  Brush.Color:=clYellow;
  FillRect(ClipRect);
  Pen.Color:=RGB(random(255),random(255),random(255));
 end;
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if k=0 then
 begin
  x1:=x;
  y1:=y;
  k:=1;
 end
else
 begin
  x2:=x;
  y2:=y;
  Image1.Canvas.MoveTo(x1,y1);
  Image1.Canvas.LineTo(x2,y2);
  x1:=x2;
  y1:=y2;
 end;
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    Label1: TLabel;
    procedure PaintBox1Paint(Sender: TObject);
    procedure PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
  end;
 
var
  Form1: TForm1;
  Points: array of TPoint;
  lineColor: TColor = clBlue;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  // обнуляем массив (не помню как правильно)
  SetLength(Points,0);
  lineColor:= RGB(Random(255),Random(255),Random(255));
  PaintBox1.Repaint;
  Label1.Caption:= 'Count: 0';
end;
 
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  SetLength(Points,Succ(Length(Points)));
  Points[High(Points)].X:= X;
  Points[High(Points)].Y:= Y;
  PaintBox1.Repaint;
  Label1.Caption:= 'Count: ' + IntToStr(Length(Points));
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  with PaintBox1 do
  begin
    Canvas.Brush.Color:= clWhite;
    Canvas.FillRect(ClientRect);
    Canvas.Pen.Color:= lineColor;
    Canvas.Pen.Width:= 2;
    Canvas.Polyline(Points);
  end;
end;
 
end.

if k=0 then//если первый клик, запоминаем координаты точки
 begin
  x1:=x;
  y1:=y;
  k:=1;//сменим флаг
 end
else//если второй клик, определим координаты второй точки и рисуем отрезок
 begin
  x2:=x;
  y2:=y;
  Image1.Canvas.MoveTo(x1,y1);
  Image1.Canvas.LineTo(x2,y2);
  x1:=x2;//запоминаем новые координаты первой точки
  y1:=y2;
 end;