procedure TForm1.BoxFuerMassText(punkt:TGLVectord3);
var Viewport: TVector4i;
begin
  glGetIntegerv(GL_VIEWPORT, @Viewport[0]);       //ViewPort speichern

  glMatrixMode(GL_PROJECTION);                    //in die ProjektionsMatrix
  glPushMatrix;                                   //Matrix speichern
  glLoadIdentity;                                 //Matrix zurücksetzen
  glOrtho(0, Viewport[2], Viewport[3], 0, 0, 10); //2D-Sicht festlegen (mit Viewport als Grenzen)

  glMatrixMode(GL_MODELVIEW);                     //in die ModelMatrix
  glPushMatrix;                                   //Matrix speichern
  glLoadIdentity;                                 //Matrix zurücksetzen
  gldisable(GL_Depth_test);                       //Tiefentest ausschalten
  glBegin(GL_QUADS);
  glcolor3f(1,1,1);
    glTexCoord2f(0,0);  glVertex2f(          punkt[0],          punkt[1]);
    glTexCoord2f(0,1);  glVertex2f(          punkt[0],          punkt[1]+20);
    glTexCoord2f(1,1);  glVertex2f(          punkt[0]+80,       punkt[1]+20);
    glTexCoord2f(1,0);  glVertex2f(          punkt[0]+80,       punkt[1]);
  glEnd;

  glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);// ohne das hier gibts nur schwarze blöcke zu sehen...
  glenable(GL_BLEND);

  glTranslatef(0, 0, -10);

  // setting color or with glColor
  tsTextColor3f(0, 0, 0);

  // activate small font
  tsFontBind(fsmallFontID);

  // set align to left
  tsSetParameteri(TS_ALIGN, TS_ALIGN_LEFT);

  // draw Text
  glPushMatrix;

    glTranslatef(punkt[0]+10, punkt[1]+20, 0);
    tsTextOutA('123,4');

  glPopMatrix;

  //Zustand zurücksetzen

  glenable(GL_DEPTH_TEST);
  gldisable(GL_BLEND);



  glMatrixMode(GL_PROJECTION);                    //in die ProjektionsMatrix
  glPopMatrix;                                    //alte Matrix wieder laden

  glMatrixMode(GL_MODELVIEW);                     //in die ModelMatrix
  glPopMatrix;                                    //alte Matrix wieder laden
  glenable(gl_depth_test);

end;

tsFontBind(fsmallFontID);

Ascent := tsGetParameteri(TS_FONT_ASCENT);
Descent := tsGetParameteri(TS_FONT_DESCENT);