x Quadrat hintereinander

[CalganX]

Hi,
ich habe folgendes Problem: Mit folgendem Source versuche ich die in einem Edit eingegebene Anzahl von Quadraten in einer PaintBox zu erstellen:

Delphi-Quellcode:

const
  iGroesse = 50;
var
  i, j, s: integer;
begin
  for i := 0 to strToInt(XSize.Text) do begin
    PaintBox1.Canvas.Rectangle(i * iGroesse + 1, 1, (i + iGroesse) * iGroesse, 1 * iGroesse);
  end;
end;

(Ist mir klar, dass dies nur die 1. Zeile da stellt, ist aber Absicht).

Das Problem, was da entsteht das der Rest der Linie (siehe Screenshot im Anhang)!

Wie bekommt man das weg?

Chris

[Luckie]

Mach aus dem Screenshot mal ein jpg oder gif, ich habe keien Lust mir 1 MB runterzuladen.

[phlux]

da ich dsl hab konnte ich mir das pic mal anschauen, jpg wäre aber wirklich besser gewesen

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  iGroesse = 50;
var
  i, j, s: integer;
  Rect: TRect;
  Point: TPoint;

begin
  for i := 0 to strToInt(XSize.Text) do
  begin
    Point.Y := 1;
    Point.X := (i * iGroesse) + 1;
    Rect.TopLeft :=Point;

    Point.y := iGroesse;
    Point.x := (i * iGroesse) + 1 + iGroesse;
    Rect.BottomRight:=Point;
    PaintBox1.Canvas.Rectangle(Rect);
//    PaintBox1.Canvas.Rectangle(i * iGroesse + 1, 1, (i + iGroesse) * iGroesse, 1 * iGroesse);
  end;
end;

läuft fehlerfrei bei mir so