Opengl. Объекты стают растянутыми в широкоформатном разрешении

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, OpenGL, DGLUT, Vcl.ExtCtrls,
  Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
 
 
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  HRC: HGLRC;
  A: GLFloat = 0;
implementation
 
{$R *.dfm}
 
 
procedure SetDCPixelFormat ( hdc : HDC );
var
 pfd : TPixelFormatDescriptor;
 nPixelFormat : Integer;
 
begin
 FillChar (pfd, SizeOf (pfd), 0);
 pfd.dwFlags  := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
 nPixelFormat := ChoosePixelFormat (hdc, @pfd);
 SetPixelFormat (hdc, nPixelFormat, @pfd);
end;
 
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetDCPixelFormat(Canvas.Handle);
  hrc := wglCreateContext(Canvas.Handle);
  wglMakeCurrent(Canvas.Handle, hrc);
 
  glEnable(GL_DEPTH_TEST);
  glDepthFunc(GL_LEQUAL);
 
 
 
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
  glClearColor (0.01, 0.08, 0.19, 1.0);
  glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
 
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);
 
 
 
  glpushMatrix;
 
 
  //glTranslatef(-20, 40, -70);
  glTranslatef(0, 0, 0);
  glutSolidSphere(2,20,20);
  glpopmatrix;
 
 
 
  SwapBuffers(Canvas.Handle);
 
end;
 
procedure TForm1.FormResize(Sender: TObject);
begin
  glViewport(0, 0, ClientWidth, ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  glFrustum(-1, 1, -1, 1, 1.25, 100.0);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
  gluLookAt(0, 0, 5, 0, 0, 0, 0, 1, 0);
  InvalidateRect(Handle,nil,False);
end;
 
 
 
 
 
 
 
end.

 gluPerspective(45,clientWidth/ClientHeight,1, 100);