function TForm1.Selection : integer;
var
  Puffer       : array[0..512] of GLUInt;
  Viewport     : TGLVectori4;
  Treffer,i    : Integer;
  Z_Wert       : GLUInt;
  Getroffen    : GLUInt;
begin
  glGetIntegerv(GL_VIEWPORT, @viewport);
  glSelectBuffer(512, @Puffer);
  glRenderMode(GL_SELECT);

  glMatrixMode(GL_PROJECTION);
  glPushMatrix;
  glLoadIdentity;

  gluPickMatrix(XS, Viewport[3] - YS, 1.0, 1.0, Viewport);
  gluPerspective(60, ClientWidth/ClientHeight, 1, 1000);

  form1.render;

  glMatrixMode(GL_PROJECTION);
  glPopMatrix;

  treffer := glRenderMode(GL_RENDER);

  if treffer > 0 then begin
    Getroffen := High(GLUInt);
    Z_Wert := High(GLUInt);
    for i := 0 to Treffer-1 do
      if Puffer[(i*4)+1] < Z_Wert then begin
        getroffen := Puffer[(i*4)+3];
        Z_Wert := Puffer[(i*4)+1];
      end;

  end;
  result := getroffen;
end;