A: Just override CreateParams thus:
private
{ Private declarations }
procedure CreateParams(VAR Params: TCreateParams);
override;
...
procedure TForm1.CreateParams(VAR Params: TCreateParams);
begin
Inherited Createparams(Params);
WITH Params DO
Style := (Style OR WS_POPUP OR WS_BORDER) AND NOT
WS_DLGFRAME;
end;