Rectangle mit schleife

[netscanner]

so leute, die letzte frage für heute ^^

Delphi-Quellcode:

var a,b,c,d,e,f: integer;
begin

  with image1.canvas do
  begin

 Brush.Style := bsClear;

    a := 80;
    c := 160;
    e := -1;
    for f := 1 to 3 do
    begin
      e := e + 1;
      a := a - (e*40);
      c := c + (e*40);
      b := a;
      d := c;

      Rectangle(a+90,b+90, c+90,d+90)  ;


      image1.Canvas.Polyline([Point(120+90, a+90), Point(c+90, 120+90), Point(120+90,c+90),
    Point(a+90,120+90),Point(120+90,a+90)]);
    end;
  end;
end;

das ist jetzt der endcode...es werden polygonne und quadrate inneinander erzeugt. die linien sind aber nicht 100% aufeinander...woran kann das liegen?