diff --git a/components/lazutils/avglvltree.pas b/components/lazutils/avglvltree.pas
index 6cd5bc9d20..edc67b3dec 100644
--- a/components/lazutils/avglvltree.pas
+++ b/components/lazutils/avglvltree.pas
@@ -1839,7 +1839,7 @@ end;
 
 function TStringToStringTree.FindNode(const Name: string): TAvgLvlTreeNode;
 begin
-   Result:=FItems.FindKey(@Name,FCompareNameWithItem);
+   Result:=FItems.FindKey(Pointer(Name),FCompareNameWithItem);
 end;
 
 function TStringToStringTree.GetNode(Node: TAvgLvlTreeNode;