Поворот камеры вокруг target

procedure TForm1.FormCreate(Sender: TObject);
begin
...
  zf:=200;xf:=200;yf:=0;
end;         
...
//--Вычисление угла по X и Y на плоскости.
function Angle(x,y:double):double;
begin
if (Abs(x)<0.00000001) and (y>0) then begin Result:=90;exit;end;
if (Abs(x)<0.00000001) and (y<0) then begin Result:=-90;exit;end;
if (Abs(y)<0.00000001) and (x>0) then begin Result:=0;exit;end;
if (Abs(y)<0.00000001) and (x<0) then begin Result:=180;exit;end;
if (x>0) and (y>0) then begin Result:=arctan(y/x)*180/PI;exit;end;
if (x>0) and (y<0) then begin Result:=arctan(y/x)*180/PI;exit;end;
if (x<0) and (y>0) then begin Result:=180+arctan(y/x)*180/PI;exit;end;
if (x<0) and (y<0) then begin Result:=-180+arctan(y/x)*180/PI;exit;end;
end;     
...
//--Движение мыши подъём и поворот
procedure TForm1.GLBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
var teta,dt,x1,y1,r:Extended;
begin
//---Поворот вокруг оси y=ax (подъём, фи,тэта)
if (down=1) and not(ssCtrl in Shift) then
   begin
   dt:=YS-Y;
   fiz:=Angle(xf,yf);
   r:=Sqrt(xf*xf+yf*yf+zf*zf);
   teta:=arccos(zf/r)*180/PI;
   teta:=teta+dt/2;
   if (teta<0) or (teta>90) then exit;
   xf:=r*cos(fiz*PI/180)*sin(teta*PI/180);
   yf:=r*sin(fiz*PI/180)*sin(teta*PI/180);
   zf:=r*cos(teta*PI/180);
   YS:=Y;Draw;exit;
   end;
//---Поворот вокруг оси Z (фи)
if (down=1) and (ssCtrl in Shift) then
   begin
   dt:=XS-X;dt:=dt/5;
   fiz:=dt*PI/180;
   x1:=xf*cos(fiz)-yf*sin(fiz);
   y1:=xf*sin(fiz)+yf*cos(fiz);
   xf:=x1;
   yf:=y1;
   Draw;XS:=X;exit;
   end;
end;      
...            
//---Зум
procedure TForm1.GLBoxMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
var r,r2,rp,rp2,xa,ya,za:double;
begin
r:=Sqrt(xf*xf+yf*yf+zf*zf);
if WheelDelta<0 then rp:=r+5 else rp:=r-5;
r2:=r*r;
rp2:=rp*rp;
xa:=Sqrt(xf*xf*rp2/r2);
ya:=Sqrt(yf*yf*rp2/r2);
za:=Sqrt(zf*zf*rp2/r2);
xf:=xa*sign(xf);
yf:=ya*sign(yf);
zf:=za*sign(zf);
Draw;
end;      
...
//--Рисование
procedure TForm1.Draw;
begin
...
gluLookAt(xf,yf,zf,0,0,0,0,0,1); //---Изменение положения камеры
...
end;