Was ich noch gesehen habe ist, dass du die Variable k niergends initialisierst. Mach das spätestns vor der "For"-Schlaufe mit k := 1.
EDIT:
Habe übrigens nun mal alles selber so getestet und kann dein Problem nun sehen. Sobald Left grösser 32'767 ist, was ab dem 95. Panel der Fall ist, werden alle folgenden Panel auch mit dieser maximalen Left Position platziert. Das Problem hier ist Windows selber, da die Position im Windowsm
API als "int" deklariert ist und somit 32767 der Maximalwert für Left bei einem Window darstellt.
Müssen denn die Panel wirklich ein TWinControl sein oder würde auch eine TGraphicControl gehen (z.B. TPaintBox)? Mit einem TBevel (ein TGraphicControl) anstelle des TPanel geht es nämlich problemlos. Mit eine TPanel, also einem TWinControl, wirst du das nicht lösen können.