procedure TForm1.FormResize(Sender: TObject); 
  var
    UhelPohledu: real;
    PomerStran : GLdouble;
    Nejbliz, Nejdal: real;
    X, Y: integer;
  begin
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    UhelPohledu := 30.0;
    PomerStran := Width / Height;
    Nejbliz := 0.1;
    Nejdal := 400;
    gluPerspective(UhelPohledu, PomerStran, Nejbliz, Nejdal);
    X := 0;
    Y := 0;
    glViewport(X, Y, Width ,Height);
    InvalidateRect(Handle, nil, False);
  end;