diff --git a/lcl/controls.pp b/lcl/controls.pp
index 6998351666..f4c67fb046 100644
--- a/lcl/controls.pp
+++ b/lcl/controls.pp
@@ -1487,6 +1487,7 @@ type
     procedure CreateHandle; virtual;
     procedure CreateParams(var Params: TCreateParams); virtual;
     procedure CreateWnd; virtual; //creates the window
+    procedure DestroyHandle; virtual;
     procedure DestroyWnd; virtual;
     procedure DoFlipChildren; dynamic;
     procedure FixupTabList;
@@ -1577,8 +1578,6 @@ type
     constructor CreateParented(ParentWindow: HWnd);
     class function CreateParentedControl(ParentWindow: HWnd): TWinControl;
     destructor Destroy; override;
-    { TODO: DestroyHandle needed by win32 intf }
-    procedure DestroyHandle; virtual;
     procedure DockDrop(DockObject: TDragDockObject; X, Y: Integer); dynamic;
     Function CanFocus: Boolean;
     function GetControlIndex(AControl: TControl): integer;
@@ -2891,6 +2890,9 @@ end.
 { =============================================================================
 
   $Log$
+  Revision 1.290  2005/03/25 16:41:00  micha
+  make DestroyHandle method protected again, use global RecreateWnd procedure
+
   Revision 1.289  2005/03/25 08:58:11  micha
   implement ShowInTaskBar for win32 intf
 
diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 0a0236dca9..b1a84f8807 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -327,8 +327,7 @@ begin
   if (Application <> nil) and (AForm = Application.MainForm) then
     exit;
 
-  AForm.DestroyHandle;
-  AForm.HandleNeeded;
+  RecreateWnd(AForm);
 end;
 
 procedure TWin32WSCustomForm.ShowModal(const ACustomForm: TCustomForm);