* throw proper error if no suitable NewInstance method is found, resolves #41274

compiler/msg/errore.msg

@@ -1705,6 +1705,9 @@ parser_e_cannot_evaluate_expression_at_compile_time=03372_E_Expression cannot be
 parser_e_type_alread_forward=03373_E_Duplicate forward type declaration: $1
 % Types might be defined only once as forward:
 % \var{type myclass = class; myclass = class;} is not allowed
+parser_e_no_suitable_newinstance_method_found=03374_E_No suitable NewInstance method for class instance creation found
+% To create a new instance of a class, a suitable NewInstance (like \var{TObject.NewInstance}) method must be found. The symbol name NewInstance
+% might not be used for other purposes than to create a new instance of a class.
 %
 % \end{description}
 %

compiler/psub.pas

@@ -493,7 +493,7 @@ implementation
                             nil));
                       end
                     else
-                      internalerror(200305108);
+                      Message(parser_e_no_suitable_newinstance_method_found);
                   end
                 else
                   if is_object(current_structdef) then

tests/webtbf/tw41274.pp

@@ -0,0 +1,15 @@
+{ %fail }
+{$mode objfpc}
+type
+  tt = class
+    ff: byte;
+    property NewInstance: byte read ff;
+    constructor Create;
+  end;
+
+constructor tt.Create;
+begin // Error: Internal error 200305108
+end;
+
+begin
+end.