(cherry picked from commit b4d4c30a45a2072d3ce448fd8b62cfa58b7cdc90)
@@ -1181,6 +1181,7 @@ Var
Key : String;
L : TConnectionList;
begin
+ Result:=0;
Key:=CreateKey(aDef);
Lock;
try