WM_WINDOWPOSCHANGED:
    begin
(*
      if (Control.MinWidth <> 0) and (Control.Width < Control.MinWidth) then Control.Width := Control.MinWidth;
      if (Control.MaxWidth <> 0) and (Control.Width > Control.MaxWidth) then Control.Width := Control.MaxWidth;
      if (Control.MinHeight <> 0) and (Control.Height < Control.MinHeight) then Control.Height := Control.MinHeight;
      if (Control.MaxHeight <> 0) and (Control.Height > Control.MaxHeight) then Control.Height := Control.MaxHeight;
*)
      if (Control.ChildCount <> 0) and (fLayout = nil) then 
        for i := 0 to Control.ChildCount - 1 do
          if (Control.Children[i].Align = caNone) then
            Sendmessage(Control.Children[i].Handle, US_SETANCHORS, 0, 0);
      Control.Update;
    end;

//
//!!! Код предложен andrestudio
//
    US_SETANCHORS:
    begin
      if _prop_akRight then
        if not _prop_akLeft then
          SetWindowPos(Control.Handle, 0, Control.Parent.Width - (fDefWidth + fDefRight), Control.Top, fDefWidth, Control.Height, SWP_NOZORDER)
        else
          SetWindowPos(Control.Handle, 0, fDefLeft, Control.Top, Control.Parent.Width - (fDefLeft + fDefRight), Control.Height, SWP_NOZORDER);

      if _prop_akBottom then
        if not _prop_akTop then
          SetWindowPos(Control.Handle, 0, Control.Left, Control.Parent.Height - (fDefHeight + fDefBottom), Control.Width, fDefHeight, SWP_NOZORDER)
        else
          SetWindowPos(Control.Handle, 0, Control.Left, Control.Top, Control.Width, Control.Parent.Height - (fDefTop + fDefBottom), SWP_NOZORDER);
    end;
  end;

      if _prop_MinWidth >= Width then
        MinWidth := Width
      else
        MinWidth := _prop_MinWidth; 

      if _prop_MinHeight >= Height then
        MinHeight := Height
      else
        MinHeight := _prop_MinHeight;
      
      if (_prop_MaxWidth <= Width) and (_prop_MaxWidth <> 0) then
        MaxWidth := Width
      else
        MaxWidth := _prop_MaxWidth;

      if (_prop_MaxHeight <= Height) and (_prop_MaxHeight <> 0) then // Тут раньше была ошибка, вместо Height стояла Width
        MaxHeight := Height
      else
        MaxHeight := _prop_MaxHeight;