1:

Form1.Close;					

1:

Form1.BorderStyle:= bsSingle;					

1:
2:

Form1.Constraints.MinHeight:= 200;
Form1.Constraints.MinWidth:= 200;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

private 
   
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; 

  {...} 
implementation 


procedure TForm1.WMSysCommand(var Msg: TWMSysCommand); 
begin 
  if ((Msg.CmdType and $FFF0) = SC_MOVE) or 
    ((Msg.CmdType and $FFF0) = SC_SIZE) then 
  begin 
    Msg.Result := 0; 
    Exit; 
  end; 
  inherited; 
end;					

1:

or ((Msg.CmdType and $FFF0) = SC_SIZE)