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;