Form üstüne dbclick yapilinca maximisize (tam ekran) olmasi

type
TForm1 = class(TForm) 
Button1: TButton; 
procedure Button1Click(Sender: TObject); 
private 
procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest; 
end; 

var 
Form1: TForm1; 
implementation 
{$R *.DFM} 
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest); 
begin 
inherited;
if M.Result = htClient then 
M.Result := htCaption;
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Close; 
end; 
end.