Ich hab heute nen lieben Tag....
Also, folgendes ändern:
PosVect[2] := -20;
dann...
Bei
allen Schleifen anstatt von 0 bis 4:
for xyz := -2 to 2 do
und eben die Nearclipping und Farclipping wie im obigen Beitrag
und:
gluPerspective(90.0, Panel1.ClientWidth/Panel1.ClientHeight, NearClipping, FarClipping);