Пакеты и создание компонентов

// Определите реальную гарантию в MyControlsReg.
unit MyControlsReg;
interface
procedure Register;
implementation
uses DesignIntf, MyControls;
procedure Register;
begin
  RegisterComponents('Company', [TMyControl]);
end;
end.

// Проследите фактическое поведение SlowDesignInit.
unit SlowDesignInit;
interface
procedure Register;
implementation
uses System.Net.HttpClient;
var Client: THTTPClient;
initialization
  Client := THTTPClient.Create;
  Client.Get('https://vendor.example.com/license');
finalization
  Client.Free;
end.

// Проследите фактическое поведение LoadDesignPackage.
program LoadDesignPackage;
uses Winapi.Windows, System.SysUtils;
var PackageHandle: HMODULE;
begin
  PackageHandle := LoadPackage('ThirdPartyDesign.bpl');
  try
    Writeln('loaded');
  finally
    UnloadPackage(PackageHandle);
  end;
end.

// Отделите правило языка от удачного запуска VersionedComponent.
unit VersionedComponent;
interface
uses System.Classes;
type
  TReportView = class(TComponent)
  private
    FCaptionText: string;
  published
    property CaptionText: string read FCaptionText write FCaptionText;
  end;
implementation
end.

// Определите реальную гарантию в ControlRegistration.
unit ControlRegistration;
interface
procedure Register;
implementation
uses System.Classes;
type
  TStoredSettings = class(TPersistent)
  end;
procedure Register;
begin
  RegisterClass(TStoredSettings);
end;
end.

// Определите реальную гарантию в RuntimePackages.
program RuntimePackages;
{$APPTYPE CONSOLE}
{$R *.res}
uses
  System.SysUtils,
  SharedModels in 'SharedModels.pas';
begin
  Writeln(TSharedModel.ClassName);
end.