WM_SIZE: begin
                 SetAnchors;
                 //Control.Update;
               end;
...

procedure THIWin._onResize;
var
  i: integer;
begin
  for i := 0 to Control.ChildCount-1 do
    SendMessage(Control.Children[i].Handle, WM_SIZE,0,0);

   _hi_OnEvent(_event_onResize);
end;

procedure THIWin.SetAnchors;
var
  w,h,d: integer;
begin
  Control.BeginUpdate;
  if Control.Align = caNone then
  begin
    //if not Control.HandleAllocated then Exit;

    // один раз инициализируем и пользуемся
    // в Init  Control.Parent. Width и Height не работают !
    if not InitSize then
    begin
      FOldTop := _prop_Top;
      FOldLeft := _prop_Left;
      FOldRight := Control.Parent.Width - (_prop_Left+_prop_Width);
      FOldBottom := Control.Parent.Height - (_prop_Top+_prop_Height);
      FOldWidth := _prop_Width;
      FOldHeight := _prop_Height;
      InitSize := True;
    end;

    if _prop_akRight then
    begin
      w := FParent.Width - (FOldLeft+FOldRight);
      h := Control.Height;
      if not _prop_akLeft then
      begin
        d := FParent.Width - (FOldWidth + FOldRight);
        SetWindowPos(Control.Handle, 0, d, [b]Control.Top[/b], FOldWidth, h, SWP_NOZORDER);
      end else
        SetWindowPos(Control.Handle, 0, FOldLeft, [b]Control.Top[/b], w, h, SWP_NOZORDER);
    end;

    if _prop_akBottom then
    begin
      w := Control.Width;
      h := FParent.Height - (FOldTop+FOldBottom);
      if not _prop_akTop then
      begin
        d := FParent.Height - (FOldHeight+FOldBottom);
        SetWindowPos(Control.Handle, 0, Control.Left, d, w, fOldHeight, SWP_NOZORDER);
      end else
        SetWindowPos(Control.Handle, 0, Control.Left, Control.Top, w, h, SWP_NOZORDER);
    end;

    end else begin

    case _prop_MaxHeight of
      0:;
    else if Control.Height > _prop_MaxHeight then Control.Height := _prop_MaxHeight; end;

    case _prop_MinHeight of
      0:;
    else if Control.Height < _prop_MinHeight then Control.Height := _prop_MinHeight; end;

    case _prop_MaxWidth of
      0:;
    else if Control.Width > _prop_MaxWidth then Control.Width := _prop_MaxWidth; end;

    case _prop_MinWidth of
      0:;
    else if Control.Width < _prop_MinWidth then Control.Width := _prop_MinWidth; end;

  end;

  Control.EndUpdate;
end;