Limit maximize and minimize form

procedure TForm1.FormShow(Sender: TObject);
Constraints.MaxHeight := 300;
Constraints.MaxWidth := 300;
Constraints.MinHeight := 150;
Constraints.MinWidth := 150;
end;