Текущая ситуация с Дельфи

function TRender.TraceRay(Ray:TRay;Depth:integer):TVector;
var
  SurfaceCoords:TVector;
  Reflected:TRay;
  Refracted:TRay;
  Visual:TVisual;
  Normal:TVector;
  i:integer;
begin
   if Scene.NearestIntersection(Ray,SurfaceCoords) then
   begin
       Result:=Scene.Ambient+Visual.Matherial.SelfIlluminance;
       Normal:=Visual.Geometry.Normal(SurfaceCoords);
       Reflected.Create(SurfaceCoords,Ray.Direction.Reflected(Normal));
       for i := 0 to Scene.ActiveLightCount do
       begin
             Result:=Result+Scene.ActiveLight[i].Light(Visual,Ray,SurfaceCoords,Reflected);
       end;
       if (Depth>0) then
       begin
          Normal:=Visual.Geometry.Normal(SurfaceCoords);
          Result:=Result+TraceRay(Reflected,Depth-1);
          if Visual.Matherial.Opacity<1. then
          begin
             Refracted.Create(SurfaceCoords,Ray.Direction.Refracted(Normal,1-Visual.Matherial.Opacity));
             Result:=Result+TraceRay(Refracted,Depth-1);
          end;
       end;
   end
   else Result:=Scene.BackgroundColor;
end;

Vector=TVector.Create(1,2,3);
...
Vector.Free;