Allerdings, entweder ich verstehe das Problem oder es ist wirklich so einfach. Mit ner Schleife wird es auch nicht recht komplizierter, ich mach dir gleich einen Gefallen:
Delphi-Quellcode:
for j := 1 to SquareRows
for i := 1 to SquareCols do
PaintBox1.Canvas.FillRect((i-1)*SquareWidth, (j-1)*SquareHeight, i*SquareWidth, j*SquareHeight);
SquareHeight und SquareWidth geben Höhe/Breite der Quadrate an, SquareRows und SquareCols die Anzahl Zeilen/Spalten in der Quadratmatrix.