1:
2:
3:
4:
5:

TfrmMain = class(TForm) 
  ...... 
  private 
    procedure wmGetMinMaxInfo(var Msg : TMessage); Message wm_GetMinMaxInfo; 
.....					

1:
2:
3:
4:
5:
6:

procedure TfrmMain.wmGetMinMaxInfo(var Msg : TMessage); {begenzt die erlaubte Formulargröße} 

begin 
  PMinMaxInfo(Msg.lParam)^.ptMinTrackSize := Point(640 ,480); 
  PMinMaxInfo(Msg.lParam)^.ptMaxTrackSize := Point(1024,768); 
end;