Button nebeneinander und untereinander addieren

[venice2]

Ich möchte Button nebeneinander und untereinander zur Laufzeit addieren

Mein Array 0..19 (20 Button)
Die Berechnung

Delphi-Quellcode:

    
    if (A < 5) then // weniger wie 5 = 5 Button
    begin
      inc(x, 125) // x Position um 125 inkrementieren
    end else
    begin
      if A mod 5 = 0 then // 5 Button erreicht
      begin
        inc(y, 125); // y Position verändern
        x := 15; // Reset x
      end else
      inc(x, 125); // x um 125 inkrementieren
    end;

Leider bekomme ich in der ersten Reihe immer 6 anstelle von 5 Button.
Und in der letzen 4.
Wo ist mein Denkfehler?