Помогите с крутением фигуры opengl

[bosyak]

Не могу понять как сделать так чтобы фигура крутилась не сначала

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
down:=true
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

if down=true then begin
Cursor:=crHandPoint;
xax :=(xax+ (180 * ((y1*y) / clientWidth)))/100;
yax :=(yax+ (180 * ((x1*x) / clientheight)))/100;

//  render;
end;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
form1.Cursor:=crDefault;
down:=false;
x1:=x1+x;
y1:=y1+y;
end;

procedure TForm1.render; //ф-я рисования
var
col:longint;
р,г,б:byte;
s:string;
begin
glclearcolor(0,0,1,1);
glclear(gl_color_buffer_bit or gl_depth_buffer_bit);
glViewport(0,0,ClientWidth,ClientHeight) ;
glmatrixmode(gl_projection);
glLoadIdentity;
gluPerspective(45.0,clientwidth/clientheight,NearClipping,FarClipping);
glMatrixMode(gl_modelview);
glloadidentity;
glTranslatef(0,0,d);
  Col := ColorToRGB(form3.colorbox1.Selected);
  р     := Col;
  г     := Col shr 8;
  б     := Col shr 16;
glRotatef(yax, 0.0, 1.0, 0.0);
glRotatef(xax, 1.0, 0.0, 0.0);
 if form3.rg.ItemIndex=1 then begin
line(р,г,б);// //ф-я рисования линий с параметрами цвета
   graphi;//ф-я рисования графика
 end
else if form3.rg.ItemIndex=2 then begin
quad;//ф-я рисования квадрата
line(р,г,б);
 glRasterPos3f(0,0,0);
 glListBase(1000);
//s:='Hello Windows OpenGL World';
//glCallLists(24, GL_UNSIGNED_BYTE, @s);
graphi;
end else begin
graphi;
end;

SwapBuffers(dc);
end;

[phomm]

Погодите, bosyak, не крутите, объясните, чего Вы хотите?
©копимодифицировано от Корнея Чуковского
И проект в архиве целиком приложите.

[bosyak]

вот, мне нужно чтобы квадрат крутился правильно по Х У Z осям

[bosyak]

Все разобрался