diff --git a/examples/designnonlcl/mywidgetdesigner.pas b/examples/designnonlcl/mywidgetdesigner.pas
index 7427ef798b..16da1a6d3e 100644
--- a/examples/designnonlcl/mywidgetdesigner.pas
+++ b/examples/designnonlcl/mywidgetdesigner.pas
@@ -238,7 +238,7 @@ end;
 
 function TFileDescPascalUnitWithMyForm.GetInterfaceUsesSection: string;
 begin
-  Result:=Result+'Classes, SysUtils, MyWidgetSet';
+  Result:='Classes, SysUtils, MyWidgetSet';
 end;
 
 function TFileDescPascalUnitWithMyForm.GetLocalizedName: string;