procedure TForm1.FormPaint(Sender: TObject);
var
i,a, x,y : integer;
begin
y := 0;
x := 10;
for a:=0 to 50 do
begin
for i:=0 to 50 do
begin
szesc(x,y);
x := x+ 40;
end;
y := y +20;
end;
end;
procedure TForm1.szesc(x,y: integer);
begin
canvas.pen.Width := 3;
Canvas.MoveTo(x,y);
Canvas.LineTo(x + 20,y);
Canvas.MoveTo(x + 20,y);
Canvas.LineTo(x + 30,y + 20);
Canvas.MoveTo(x + 30,y + 20);
Canvas.LineTo(x + 20,y + 40);
Canvas.MoveTo(x + 20,y +40);
Canvas.LineTo(x, y +40);
Canvas.MoveTo(x,y+40);
Canvas.LineTo(x-1 0,y+20);
Canvas.MoveTo(x - 10,y + 20);
Canvas.LineTo(x,y);
end;
Ekran powinien się zapełnić sześciokątami lecz niestety tak nie jest wypełnia się tylko 1-wszy rząd co jest źle zrobione Czy pętla for do jest źle zagnieżdżona czy co