- var
 - ...
 -  MyTexture: GLuint;
 - procedure TForm1.ShowForm(...);
 - begin
 - ....
 -  // Init
 - ....
 - glEnable(GL_TEXTURE_2D);
 - LoadTexture('Textur.jpg', MyTexture, False);
 - end;
 - procedure TForm1.OnIdle(...);
 - begin
 - Done := False;
 - glClear(...);
 - glLoadIdentity;
 - glTranslatef(0,0,-5);
 - glBindTexture(GL_TEXTURE_2D, MyTexture);
 - glBegin(GL_QUADS);
 -   glTexCoord2f(0,0); glVertex3f(-2,-2,0);
 -   glTexCoord2f(1,0); glVertex3f( 2,-2,0);
 -   glTexCoord2f(1,1); glVertex3f( 2, 2,0);
 -   glTexCoord2f(0,1); glVertex3f(-2, 2,0);
 - glEnd;
 - end;
 
