var
  FontLists: Cardinal;


procedure CreateLists; // Wird einmal am Anfang aufgerufen
var
  CustomFont: HFont;
begin
  FontLists := glGenLists(256);
  

  // CustomFont := GetStockObject (SYSTEM_FONT);
  // Eine Alternative mit der man die Systemschriftart zurück bekommt.
  

  CustomFont := CreateFont(
                           32,                  // Höhe
                           0,                   // Breite 0=Keine Vorgabe
                           0,
                           0,
                           0,                   // Fett?
                           0,                   // Kursiv?
                           0,                   // Unterstrichen?
                           0,                   // Durchgestrichen?
                           ANSI_CHARSET,
                           OUT_TT_PRECIS,
                           CLIP_DEFAULT_PRECIS,
                           NONANTIALIASED_QUALITY,
                           FF_DONTCARE or DEFAULT_PITCH,
                           'Times New Roman');  // Name der Schrift
  

  SelectObject(DC, CustomFont);               // Font auf einen Device Context benutzen
  wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
end;

var
  Font: TFont;


procedure CreateLists; // Wird einmal am Anfang aufgerufen
begin
  FontLists := glGenLists(256);
  

  Font := TFont.Create;  // Instanz einer Fontklasse erstellen
  try
    Font.Name := 'Times New Roman'; // Name
    Font.Size := 32;                // Schriftgröße
    Font.Style := [fsBold];         // Styles (fsBold, fsItalic, ...)
    

    SelectObject(DC, Font.Handle);              // Font auf einen Device Context benutzen
    wglUseFontBitmaps (DC, 0, 255, FontLists);  // Mit selektiertem Font Zeichen erstellen
  finally
    FreeAndNil(Font);  // erstellte Instanz wieder frei geben
  end;
end;

procedure ShowText(pText: AnsiString);
begin
   glListBase(FontLists);  // Liste auswählen
   glCallLists(Length(pText), GL_UNSIGNED_BYTE, Pointer(pText));  // Entsprechende Listen aufrufen
end;


procedure Draw;  // Zeichen Routine
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glColor3f(1,0.5,0);        // Aktuelle Farbe für glRasterPos festlegen
  glRasterPos3f(-0.1,0,-1);  // (sichtbare) Rasterposition eintellen
  ShowText('OpenGL ');
  ShowText('Wiki');          // Steht nach "OpenGL" da glBitmap die Rasterposition verschiebt.
end;