* Fix compilation

src/win32/fresnel.win32.pas

@@ -242,11 +242,7 @@ begin
       end;
     WM_ACTIVATE:
       begin
-        form.form.WSActivation(true);
-      end;
-    WM_DEACTIVATE:
-      begin
-        form.form.WSActivation(False);
+        aform.form.WSActivation(aWPARAM<>WA_INACTIVE)
       end;
     WM_KEYUP:
       begin
@@ -688,7 +684,7 @@ var
   Init : TFresnelResizeEventInit;
 
 begin
-  aInit:=Default(TFresnelResizeEventInit);
+  Init:=Default(TFresnelResizeEventInit);
   if not GetWindowRect(FWindow,aFormRect) then
     exit;
   if (aFormRect.Width<=0) or (aFormRect.Height<=0) then exit;
@@ -700,7 +696,7 @@ begin
 
   Init.BoundsRect.SetRect(aFormRect);
   Init.Width:=aClientRect.Right;
-  Init.Height:=aClientRect.Bottom
+  Init.Height:=aClientRect.Bottom;
   Init.PixelRatio:=1;
   Form.WSResize(Init);
 end;