destructor TWinControl.Destroy;
var
  I: Integer;
  Instance: TControl;
begin
  Destroying;
  if FDockSite then
  begin
    FDockSite := False;
    RegisterDockSite(Self, False);
  end;
  FDockManager := nil;
  FreeAndNil(FDockClients);
  if (Touch <> nil) and (Touch.GestureEngine <> nil) then
  begin
    Touch.GestureEngine.Free;
    Touch.GestureEngine := nil;
  end;
  if Parent <> nil then
    RemoveFocus(True);
  if WindowHandle <> 0 then
    DestroyWindowHandle;
  I := ControlCount;
  while I <> 0 do
  begin
    Instance := Controls[I - 1];
    Remove(Instance);
    Instance.Destroy;
    I := ControlCount;
  end;
  FreeAndNil(FBrush);
{$IF DEFINED(CLR)}
  if Assigned(FHandle.FObjInstance) then
  begin
    FreeObjectInstance(@FHandle.FObjInstance);
    FHandle.FObjInstance := nil;
  end;
{$ELSE}
  if FObjectInstance <> nil then FreeObjectInstance(FObjectInstance);
{$ENDIF}
  FreeAndNil(FPadding);
  if ((sfHandleMessages) in TStyleManager.Flags) then
    TStyleManager.Notification(snControlDestroyed, Self);
  inherited Destroy;
end;