diff --git a/examples/bluetooth/wiimotetools.pas b/examples/bluetooth/wiimotetools.pas
index aea508060..d009b450a 100644
--- a/examples/bluetooth/wiimotetools.pas
+++ b/examples/bluetooth/wiimotetools.pas
@@ -299,15 +299,6 @@ type
     procedure HandleEvents;
     procedure HandleRead;
   public
-    constructor Create;
-    destructor Destroy; override;
-    procedure SetLEDs(const AValue: integer);
-    function Connect: boolean;
-    procedure Disconnect;
-    procedure EnableHandshake;
-    function RealizeReportType: boolean;
-    procedure RealizeIR;
-    
     WiiMotes: TWiiMotes;
     ID: integer;
     Name: string;
@@ -332,6 +323,15 @@ type
     Accel: TAccelVector; // current accelerator state
     AccelCalibration: TAccelCalibration;
     Dots: array[0..3] of TWiiMoteDot;
+
+    constructor Create;
+    destructor Destroy; override;
+    procedure SetLEDs(const AValue: integer);
+    function Connect: boolean;
+    procedure Disconnect;
+    procedure EnableHandshake;
+    function RealizeReportType: boolean;
+    procedure RealizeIR;
   end;
   
   { TWiiMotes }