- procedure WinKoorToObjectKoor(x, y, z: integer; var Ox, Oy,Oz: Single);
 - var
 -  a,b : array [0..15] of glDouble;
 -  c : array [0..3] of glint;
 -  x1,y1,z1 : GLdouble;
 - begin
 -  glGetFloatv(GL_MODELVIEW_MATRIX,@a[0]);
 -  glGetFloatv(GL_PROJECTION_MATRIX,@b[0]);
 -  glGetIntegerv(GL_VIEWPORT,@c[0]);
 -  gluUnProject(x,y,z,@a[0],@b[0],@c[0],x1,y1,z1);
 -  Ox := X1;
 -  Oy := y1;
 -  Oz := z1;
 - end;
 

