procedure CreateParams(var Params : TCreateParams); override;
...
procedure TForm1.CreateParams(var Params : TCreateParams);
begin
inherited Createparams(Params);
with Params do
 Style := (Style or WS_POPUP) and not WS_DLGFRAME; 
end;