Texture.bind --> Nur schwarzes Bild

[Schuster]

Hi Leute
Probiere mal grad ein bischen OGL zu progen.

Nun hab ich folgendes Problem:

Ich zeichne einen Würfel und möchte ein Bild draufknallen nur wird das Bild nicht
angezeigt und auch kein Würfel --> hab nur ein schwarzes Bild.

Habe mit der Beschreibung von Mr_T
begonnen. In Kapitel 5 wird alles beschrieben mit dem Glaux Libary (damit funkt es auch).

In Kapitel 9 wird ein besseres Libary vorgestellt (glbmp) welches ich auch verwenden möchte nur hab ich nur ein
schwarzes Bild vor mit.

Kann mir jemand sagen wo der Fehler ist???

Komletes Projekt im Anhang.

Thx

Delphi-Quellcode:

procedure Render;
begin
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
    glLoadIdentity;

    gltranslate(0,move,0); //wir bewegen alles etwas nach oben oder unten
    glscale(scale,scale,1); //Nun skalieren wir die Szene

    glrotate(rotation,0,0,1); //Und ab in die Drehung um die Z-Achse ;-)

    Textur.Bind; //Hiermit binden wir die Textur an den Würfel
    Glbegin(gl_quads); //wir wollen ein Viereck zeichnen

    glVertex3f( 1 , 1, -6);

    gltexcoord2f(0,0); //UV – Zuweisung für den ersten Punkt (textur)
    glVertex3f( -1 , 1, -6);
    gltexcoord2f(0,1); //UV – Zuweisung für den zweiten Punkt  (textur)
    glVertex3f( -1 , -1, -6);
    gltexcoord2f(1,1); //UV – Zuweisung für den dritten Punkt   (textur)
    glVertex3f( 1 , -1, -6);
    gltexcoord2f(1,0); //UV – Zuweisung für den vierten Punkt  (textur)
    textur.Bind
    glend;

    SwapBuffers(form1.myDC);
end;

P.s Wenn ich einen falschen Bildernamen angebe seh ich einen weißen Würfel.