protected
    procedure CreateParams(var Params: TCreateParams);override;
 
procedure TMainForm.CreateParams(var Params: TCreateParams);
begin
  inherited;
  with Params do
  begin
    //Style := Style and (not WS_SYSMENU);
    Style := Style and (not WS_MINIMIZEBOX);
    Style := Style and (not WS_MAXIMIZEBOX);
  end;
end;