procedure CursorMove;
var
 p: TPoint;
begin
 GetCursorPos(p);
 xAngle:=xAngle+(p.x-(ScrX div 2));
 yAngle:=yAngle+(p.y-(ScrY div 2));
 SetCursorPos((ScrX div 2),(ScrY div 2));
end;
................................................................................ ........
{процедура перерисовки сцены}
vUpVec:=D3DXVECTOR3(0.0, 1.0, 0.0);
{xa,za меняются в обработчике событий нажатия клавиш клавиатуры увеличением или уменьшением на 1}
vEyePt.x := xa;                                
vEyePt.z := za;
vEyePt.y := ya;
CursorMove;
vLookatPt.x := sin(xAngle)*Sin(yAngle);
vLookatPt.z := cos(xAngle)*sin(yAngle);
vLookatPt.y := cos(yAngle);
D3DXMatrixLookAtLH(View, vEyePt, vLookatPt, vUpVec);
pD3DDevice.SetTransform(D3DTS_VIEW, View);