program mynewprogram;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;

procedure LoadMainForm;
var
  FormClass: TFormClass;
  FmMainForm: TForm;
  Handle: HModule;
begin
  Handle := LoadPackage('FmMainForm.bpl');
  if Handle > 0 then
  begin
    FormClass := TFormClass(GetClass('TFmMainForm'));
    if Assigned(FormClass) then
    begin
      FmMainForm := FormClass.Create(Application);
    end
    else
      ShowMessage('Form class not found');

    UnloadPackage(Handle);
  end
  else
    ShowMessage('Package not found');
end;

begin
  Application.Initialize;
  Application.Run;
  LoadMainForm;
end.

unit f_main_form;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus;

type
  TFmMainForm = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N111: TMenuItem;
    N21: TMenuItem;
    N221: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmMainForm: TFmMainForm;

implementation
{$R *.dfm}

initialization
  RegisterClass(TFmMainForm);

end.