glSwitchTo2D(WinWidth, WinHeight); //In den orthogonalen Modus wechseln
glSwitchTo3D(WinWidth, WinHeight); //Zurück in den 3D Modus wechseln
glBuildFont(DC: HDC); //Font Liste initialisieren

procedure glPrint(text : pchar);
begin
  if text <> '' then                                   // If There's No Text
  begin                                                // Do Nothing
    glPushAttrib(GL_LIST_BIT);                         // Pushes The Display List Bits
    glListBase(FontLists);                             // Sets The Base Character
    glCallLists(length(text), GL_UNSIGNED_BYTE, text); // Draws The Display List Text
    glPopAttrib();                                     // Pops The Display List Bits
  end;
end;

glSwitchTo2D(WinWidth, WinHeight); //Switch to 2D mode
       glLoadIdentity;                    //Reset matrix
       glTranslatef(-2.5,0,-5);           //Center text
       glPrint('12345XYZ');               //Text output
       glSwitchTo3D(WinWidth, WinHeight); //Switch back to 2D mode

{------------------------------------------------------------------}
{  Toggles to 2D mode                                              }
{------------------------------------------------------------------}
procedure glSwitchTo2D(WinWidth, WinHeight : integer);
begin
  glViewport(0, 0, WinWidth,WinHeight);                   //Set Viewport to cover full window
  glDisable(GL_DEPTH_TEST);
  glMatrixMode(GL_PROJECTION);
  glPushMatrix();
  glLoadIdentity();
  glOrtho(0, WinWidth, 0, WinHeight, -10, 1000);
  glMatrixMode(GL_MODELVIEW);
  glPushMatrix;
  glLoadIdentity();
end;

{------------------------------------------------------------------}
{  Toggles back to 3D mode                                         }
{------------------------------------------------------------------}
procedure glSwitchTo3D(WinWidth, WinHeight : integer);
begin
  glEnable(GL_DEPTH_TEST);
  glMatrixMode(GL_PROJECTION);
  glPopMatrix();
  glMatrixMode(GL_MODELVIEW);
  glPopMatrix();
  //Resize OpenGl windows for 3D area
  glViewport(trunc(WinWidth*16/800), trunc(WinHeight*167/600), trunc(WinWidth*769/800), trunc(Winheight*417/600));
end;

{------------------------------------------------------------------}
{  Initializes fonts                                               }
{------------------------------------------------------------------}
procedure glBuildFont(DC: HDC);                       // Build Our Font
var Font: HFONT;                                      // Windows Font ID
    gmf : array [0..255] of GLYPHMETRICSFLOAT;        // Address Buffer For Font Storage
begin
  FontLists := glGenLists(256);                       // Storage For Characters
  Font := CreateFont(12,                              // Height Of Font
                      0,                              // Width Of Font
                      0,                              // Angle Of Escapement
                      0,                              // Orientation Angle
                      0,                              // Bold
                      0,                              // Italics
                      0,                              // Underlined
                      0,                              // Strikethrough
                      ANSI_CHARSET,                   // Character Set Identifier
                      OUT_TT_PRECIS,                  // Output Precision
                      CLIP_DEFAULT_PRECIS,            // Clipping Precision
                      ANTIALIASED_QUALITY,            // Output Quality
                      FF_DONTCARE or DEFAULT_PITCH,   // Family And Pitch
                      'Arial Black');                 // Font Name
  glEnable(GL_POINT_SMOOTH);
  SelectObject(DC, Font);                            // Select font type
  wglUseFontOutlines( DC,                             // Device Content
                       0,                 // Starting character
                       255,               // Last character
                       FontLists,         // Font list
                       0.0,               // Deviation From The True Outlines
                       0.3,               // Font depth (Z-axis)
                       WGL_FONT_POLYGONS, // Polygons, not lines
                       @gmf);             // Buffer
end;

{------------------------------------------------------------------}
{  Output of text                                                  }
{------------------------------------------------------------------}
procedure glPrintText2D(X,Y,Size,Spacing,WinWidth,WinHeight:Integer; Text:string);
var I     : Integer;
    ascii : integer;
begin
  //glSwitchTo2D(WinWidth, WinHeight);               //Switch to 2D
  for I := 0 to length(Text)-1 do
  begin
    glBindTexture(GL_TEXTURE_2D, 32);     //TEST
    ascii := ord(Text[I+1]);
    glBegin(GL_QUADS);
      glTexCoord((ascii mod 16)/16    , 16-((ascii DIV 16)+1)/16);
      glVertex2f(X+I*(Size+Spacing),Y);
      glTexCoord(((ascii mod 16)+1)/16, 16-((ascii DIV 16)+1)/16);
      glVertex2f(X+Size+I*(Size+Spacing),Y);
      glTexCoord(((ascii mod 16)+1)/16, 16-(ascii DIV 16)/16);
      glVertex2f(X+Size+I*(Size+Spacing),Y+Size);
      glTexCoord((ascii mod 16)/16    , 16-(ascii DIV 16)/16);
      glVertex2f(X+I*(Size+Spacing),Y+Size);
    glEnd;
   end;
  //glSwitchTo3D(WinWidth, WinHeight);               //Switch to 3D
end;