Как узнать, что форма готовится изменить размеры

{Перехватываем сообщение GetMinMaxInfo и
 устанавливаем минимальный размер окна,
 используя декларированные константы}
procedure TForm1.WMGETMINMAXINFO( var message: TMessage );
var
  mStruct: PMinMaxInfo;
begin
  mStruct := PMinMaxInfo(message.lParam);
  mStruct.ptMinTrackSize.x := HORIZONTALSIZE;
  mStruct.ptMinTrackSize.y := VERTICALSIZE;
  message.Result := 0;
end;