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

Ну примерно так:

{Перехватываем сообщение 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;

[000101]