Und dir ist dabei noch nicht aufgefallen, daß alle Linien 1 Pixel zu breit sind?
Denn richtig wäre ja wohl
for i := x to x + breite - 1 do
und nicht
for i := x to x + breite do
.
10 bis 10+2 = 10 bis 12 = 10, 11 und 12 = 3
Wenn du mal direkt auf ein TPaintBox.Canvas (oder Dergleichen) zeichnen würdest, dann die Form und die
IDE nebeneinander legst, dann kannst du den Code Zeile für Zeile debuggen und siehst direkt was da genau passiert.