Form1.Canvas.Pixels[x-2*i,y-a-i]:=CLBLACK; {11.1}
Form1.Canvas.Pixels[x,y-a]:=CLBLACK; {12.1}
Form1.Canvas.Pixels[x-a-i,y]:=CLBLACK; {13.1}
Form1.Canvas.Pixels[x-a,y-2*i]:=CLBLACK; {14.1}
Form1.Canvas.Pixels[x-a-i,y-2*i]:=CLBLACK; {15.1}
Form1.Canvas.Pixels[x-a,y-2*1]:=CLBLACK; {16.1}…