Как установить минимальный размер окна

Необходимо объявить обработчик события для WM_GETMINMAXINFO:

...
private
  procedure WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
  message WM_GETMINMAXINFO;


А вот как выглядит сам обработчик:

procedure TForm1.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
begin
  Message.MinMaxInfo^.ptMinTrackSize := Point(Width, Height);
  Message.MinMaxInfo^.ptMaxTrackSize := Point(Width, Height);
end;