for moment i see light on end of the tunnel

Procedure LPathfinder.AddNodeEx(Position:TD3DVector);
procedure AddNeighbourNode(CurNode, Neightbour: integer);
var
i: integer;
begin
for i := 0 to 3 do
if NodeList[CurNode].NextNode[i] = -1 then
begin
NodeList[CurNode].NextNode[i] := Neightbour;
NodeList[CurNode].Distance[i] :=GetNodeDistance(Neightbour,NodeList[CurNode].Position);
break;
end;
end;
var
NodeID: integer;
NeighbourID: integer;
begin
AddNode(Position);
NodeID := NodeCount;
NeighbourID := GetNearNode(Position);
if NeighbourID = -1 then exit;
AddNeighbourNode(NodeID, NeighbourID);
AddNeighbourNode(NeighbourID, NodeID);


End;


but no no success ops:

dan thanks for your time