*** empty log message ***

tests/tbs/tbs0332.pp

@@ -0,0 +1,11 @@
+{$MODE objfpc}
+uses Classes;
+var
+  o: TComponent;
+  begin
+    o := TComponent(TComponent.NewInstance);
+    o.Create(nil);
+    o.Free;
+  end.
+
+