glGetFloatv(GL_MODELVIEW_MATRIX, @M.m_matrix[0]);
 MatrixInvert(M.m_matrix,M2.m_matrix);
 vLight:=transform(vLight,M2);

function MatrixInvert(Const a: MatrixArray; Var q: MatrixArray): Boolean;
var
DetInv: Single;
begin
Result := False;
if (abs(a[15]) > 0.001) or
   (abs(a[12]) > 0.001) or
   (abs(a[13]) > 0.001) or
   (abs(a[14]) > 0.001) then
  Exit;
DetInv := 1 /( a[0] * ( a[5] * a[10] - a[9] * a[6] ) -
               a[4] * ( a[1] * a[10] - a[9] * a[2] ) +
               a[8] * ( a[1] * a[6] - a[5] * a[2] ) );

q[0] :=  DetInv * ( a[5] * a[10] - a[9] * a[6] );
q[4] := -DetInv * ( a[4] * a[10] - a[8] * a[6] );
q[8] :=  DetInv * ( a[4] * a[9] - a[8] * a[5] );
q[12] := 0;

q[1] := -DetInv * ( a[1] * a[10] - a[9] * a[2] );
q[5] :=  DetInv * ( a[0] * a[10] - a[8] * a[2] );
q[9] := -DetInv * ( a[0] * a[9] - a[8] * a[1] );
q[13] := 0;

q[2] :=  DetInv * ( a[1] * a[6] - a[5] * a[2] );
q[6] := -DetInv * ( a[0] * a[6] - a[4] * a[2] );
q[10] :=  DetInv * ( a[0] * a[5] - a[4] * a[1] );
q[14] := 0;

q[3] := -( a[3] * q[0] + a[7] * q[1] + a[11] * q[2] );
q[7] := -( a[3] * q[4] + a[7] * q[5] + a[11] * q[6] );
q[11] := -( a[3] * q[8] + a[7] * q[9] + a[11] * q[10] );
q[15] := 1;

Result := True;
end;