anchor.diff:        Group:longint;
         Left:PFLRENode;
         Right:PFLRENode;
  -      Extra:PFLRENode;
         Index:longint;
         Name:ansistring;
        end;
  
positive.code:    GroupIndexIntegerStack.Free;
     GroupNameStringStack.Free;
    end;
    while assigned(AnchoredRootNode) and OptimizeNode(@AnchoredRootNode) do begin
    end;
    if rfLONGEST in Flags then begin
     UnanchoredRootNode:=NewNode(ntCAT,NewNode(ntSTAR,NewNode(ntCHAR,nil,nil,nil,NewCharClass(AllCharClass)),nil,nil,qkGREEDY),AnchoredRootNode,nil,0);
    end else begin
  
negative.code:   end;
    if assigned(Node^.Right) then begin
     FreeNode(Node^.Right);
    end;
    FreeMem(Node);
    Node:=nil;
  