Ещё правки в VCL (3)

destructor TControl.Destroy;
begin
  Application.ControlDestroyed(Self);
  if (FHostDockSite <> nil) and not (csDestroying in FHostDockSite.ComponentState) then
  begin
    FHostDockSite.Perform(CM_UNDOCKCLIENT, 0, Integer(Self));
    SetParent(nil);
    Dock(NullDockSite, BoundsRect);
    FHostDockSite := nil;
  end else
    SetParent(nil);
  FreeAndNil(FActionLink); {V}
  FreeAndNil(FConstraints); {V}
  FreeAndNil(FFont); {V} // - эти деятели в своем репертуаре
  StrDispose(FText);
  FText := nil; {V}
  inherited Destroy;
end;