Problem bei SetLength()

[the3dcloser]

Ich habe es durchaus aufgenommen, dass der Fehler nicht von SetLength erzeugt wird, jedoch kommt die Fehlermeldung exakt bei dieser Zeile im Code.

Sonderlich glücklich bin ich bei der folgeden Handlung nicht, aber da das Projekt ja noch nicht ganz fertig ist, kann man ja ein Auge zudrücken.

Anbei sämtliche Projektdateien, sowie die beiden Beispieldateien. Auf Wunsch kann ich mehr Beispieldateien verfügbar machen.
Die zu ladendenden Dateien sind die *.trx Dateien, neben dieser Datei werden auch weitere Dateien, welche zum darstellen (via OpenGL) benötigt werden, geladen.


Download: http://www.file-upload.net/download-...4/Tool.7z.html

[BadenPower]

Bei mir ist das Programm überhaupt nicht lauffähig.

1. Fehler in Zeile 257 der Mainunit.pas in TForm1.LoadShader.
ProgramO:=glCreateProgram;