glut : redimensionement fenetre

Bonjour tout le monde !

Voila, j'ai un petit problème avec le code suivant :

program Template; uses Windows, Messages, glut, OpenGL; const WND_TITLE = 'Mes premiers en pas OpenGL'; var spin : integer; {$R *.RES} procedure init(); begin glclearcolor(0,0,0,0); glshademodel(gl_flat); end; procedure display ;cdecl; begin glclear(GL_color_buffer_bit); glpushmatrix(); glrotate(45,0,0,1); glcolor3f(1,1,1); glrectf(-25,-25,25,25); glpopmatrix(); glutswapbuffers(); end; procedure reshape(Width, Height : Integer);cdecl; begin glViewport(0, 0, Width, Height); glmatrixmode(gl_projection); glloadidentity(); glortho(-50,50,-50,50,-1,1); glmatrixmode(gl_modelview); glloadidentity(); end; begin glutinit(MS_LIB); glutinitdisplaymode(GLUT_DOUBLE or GLUT_RGB); glutinitwindowsize(250,250); glutinitwindowposition(100,100); glutcreatewindow(WND_TITLE); init(); glutdisplayfunc(display); glutreshapefunc(reshape); glutmainloop(); end.

Je m'explique :
Une fois le code compilé et éxécuté, la fenetre openGL s'ouvre bien, avec un joli petit carré en son centre, pivoté de 45 degré selon l'axe z, jusque là, pas de problème.
Par contre, dés que je veux redimensionner la fenetre, au lieu de me recalculer la scène pour un affichage correct, il me déforme mon jolie petit carré, j'arrive pas à trouver de solution, au secours !