[ROLF]

Если я неошибаюсь то сделать это так можно

Public
mx, my : Integer;

procedure TForm1.GLSceneViewer1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
mx:=x; my:=y; //Запомнить координаты мыши

end;

procedure TForm1.GLSceneViewer1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
if Shift<>[] then begin //Если нажата клавиша
GLCamera1.MoveAroundTarget(my-y, mx-x); //Перемещаем камеру вокруг целевого объекта

GLLightSource1.Position:=GLCamera1.Position; //Пусть источник освещения будет рядом с камерой
mx:=x; my:=y;
end;
end;