diff --git a/Chameleon.lpi b/Chameleon.lpi
index ea77117..c797f83 100644
--- a/Chameleon.lpi
+++ b/Chameleon.lpi
@@ -26,7 +26,7 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="1"/>
-      <BuildNr Value="2"/>
+      <BuildNr Value="3"/>
     </VersionInfo>
     <BuildModes Count="1">
       <Item1 Name="Default" Default="True"/>
diff --git a/Chameleon.res b/Chameleon.res
index a0c2e16..c8f7da2 100644
Binary files a/Chameleon.res and b/Chameleon.res differ
diff --git a/DfmEngine.pas b/DfmEngine.pas
index 544436c..856c214 100644
--- a/DfmEngine.pas
+++ b/DfmEngine.pas
@@ -159,6 +159,7 @@ begin
   childlist := TList.Create;
 
   dfm1.WriteLn('object ' + frmName + ': T' + frmName);
+  style := GetWindowLong(wnd, GWL_EXSTYLE);
   exstyle := GetWindowLong(wnd, GWL_EXSTYLE);
   dfm1.Ident := 2;
   dfm1.WritePlacement(wnd, 0);
diff --git a/frmMain.pas b/frmMain.pas
index 24638b5..13ddce5 100644
--- a/frmMain.pas
+++ b/frmMain.pas
@@ -5,7 +5,7 @@ unit frmMain;
 interface
 
 uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ExtCtrls, Spin, ComCtrls, Buttons;
 
 type