diff --git a/drawing demo/drawing.pas b/drawing demo/drawing.pas
index 3c48512..5b29f45 100644
--- a/drawing demo/drawing.pas	
+++ b/drawing demo/drawing.pas	
@@ -11,7 +11,7 @@ type TDrawing = class(TGraphicControl)
 	private
 		FExtent: integer;
 	public
-		constructor Create(theOwner: TComponent; anExtent: integer);
+		constructor Create(theOwner: TComponent; anExtent: integer); overload;
 		property Extent: integer read FExtent write FExtent;
 	end;
 
diff --git a/drawing demo/drawingdisplay.lfm b/drawing demo/drawingdisplay.lfm
index 65bc55c..d407532 100644
--- a/drawing demo/drawingdisplay.lfm	
+++ b/drawing demo/drawingdisplay.lfm	
@@ -24,6 +24,7 @@ object Form1: TForm1
     ChildSizing.ControlsPerLine = 1
     ClientHeight = 49
     ClientWidth = 229
+    ItemIndex = 0
     Items.Strings = (
       'TSquare'
       'TCircle'