diff --git a/drawing demo/drawing.pas b/drawing demo/drawing.pas
index 5b29f45..c5b4b2a 100644
--- a/drawing demo/drawing.pas	
+++ b/drawing demo/drawing.pas	
@@ -5,7 +5,7 @@ unit drawing;
 interface
 
 uses
-	Classes, SysUtils, Controls, ExtCtrls, Graphics;
+	Classes, Controls, Graphics;
 
 type TDrawing = class(TGraphicControl)
 	private
diff --git a/drawing demo/drawingdemo.lpi b/drawing demo/drawingdemo.lpi
index 1cc60d9..c6d3f4c 100644
--- a/drawing demo/drawingdemo.lpi	
+++ b/drawing demo/drawingdemo.lpi	
@@ -39,6 +39,7 @@
         <Filename Value="drawingdisplay.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="Form1"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
       </Unit1>
       <Unit2>
diff --git a/drawing demo/drawingdisplay.pas b/drawing demo/drawingdisplay.pas
index 151edad..d56e4c7 100644
--- a/drawing demo/drawingdisplay.pas	
+++ b/drawing demo/drawingdisplay.pas	
@@ -5,14 +5,14 @@ unit drawingdisplay;
 interface
 
 uses
-	Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, drawing;
+	Forms, ExtCtrls, drawing;
 type
 	{ TForm1 }
 	TForm1 = class(TForm)
+		rgShape: TRadioGroup;
 		procedure FormCreate(Sender: TObject);
 		procedure rgShapeClick(Sender: TObject);
 	private
-    rgShape: TRadioGroup;
 		FDrawing: TDrawing;
 		procedure CreateANewDrawing;
 	public
@@ -25,6 +25,8 @@ var
 
 implementation
 
+{$R *.lfm}
+
 procedure TForm1.CreateANewDrawing;
 begin
 	if (rgShape.ItemIndex < 0) then Exit;
@@ -56,7 +58,5 @@ begin
 	CreateANewDrawing;
 end;
 
-{$R *.lfm}
-
 end.