diff --git a/TestSuite/extensionmethods32.pas b/TestSuite/extensionmethods32.pas
new file mode 100644
index 000000000..5a76e7cd1
--- /dev/null
+++ b/TestSuite/extensionmethods32.pas
@@ -0,0 +1,7 @@
+function f1: byte := 0;
+
+begin
+  var l := new List<byte>;
+  l += f1;
+  assert(l[0] = 0);
+end.
\ No newline at end of file
diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index 82ef84af7..503bdff1d 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -1136,6 +1136,11 @@ namespace PascalABCCompiler.TreeConverter
                 }
             }
 
+            if (right_type.semantic_node_type == semantic_node_type.delegated_method && !left_type.IsDelegate && left_type.semantic_node_type != semantic_node_type.delegated_method)
+            {
+                try_convert_typed_expression_to_function_call(ref right);
+                right_type = right.type;
+            }
             if (right_type.semantic_node_type == semantic_node_type.delegated_method && name != compiler_string_consts.plusassign_name && name != compiler_string_consts.minusassign_name)
             {
                 delegated_methods dm2 = (delegated_methods)right_type;