BATAS MAXIMAZE FORM

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

procedure TForm1.WMGetMinMaxInfo( var Message :TWMGetMinMaxInfo );
begin
  with Message.MinMaxInfo^ do
  begin
    ptMaxSize.X := 200;                {Width when maximized}
    ptMaxSize.Y := 200;                {Height when maximized}
    ptMaxPosition.X := 99;             {Left position when maximized}
    ptMaxPosition.Y := 99;             {Top position when maximized}
    ptMinTrackSize.X := 100;           {Minimum width}
    ptMinTrackSize.Y := 100;           {Minimum height}
    ptMaxTrackSize.X := 300;           {Maximum width}
    ptMaxTrackSize.Y := 300;           {Maximum height}
  end;
  Message.Result := 0;                 {Tell windows you have changed minmaxinfo}
  inherited;  
end;