FireMonkey и кроссплатформенный интерфейс

// Определите реальную гарантию в FmxScene.
program FmxScene;
uses FMX.Forms, FMX.Controls, FMX.Objects;
var
  Form: TForm;
  Rect: TRectangle;
begin
  Form := TForm.Create(nil);
  try
    Rect := TRectangle.Create(Form);
    Rect.Parent := Form;
    Rect.Position.X := 20;
    Rect.RotationAngle := 15;
  finally Form.Free; end;
end.

// Общий presenter считает итог без FMX и сообщает его через интерфейс.
program SharedPresenter;
type
  IView = interface
    procedure ShowTotal(Value: Currency);
  end;
  TPresenter = class
  private
    FView: IView;
  public
    constructor Create(const AView: IView);
    procedure Refresh(const Values: array of Currency);
  end;
constructor TPresenter.Create(const AView: IView);
begin
  FView := AView;
end;
procedure TPresenter.Refresh(const Values: array of Currency);
var
  V, Total: Currency;
begin
  Total := 0;
  for V in Values do
    Total := Total + V;
  FView.ShowTotal(Total);
end;
begin
end.

// Отделите правило языка от удачного запуска PlatformPaths.
program PlatformPaths;
uses System.IOUtils;
var
  FileName: string;
begin
  FileName := TPath.Combine(TPath.GetDocumentsPath, 'settings.json');
  Writeln(FileName);
end.

// Определите реальную гарантию в PlatformService.
program PlatformService;
uses FMX.Platform, System.Rtti;
var
  Clipboard: IFMXClipboardService;
begin
  if TPlatformServices.Current.SupportsPlatformService(
    IFMXClipboardService, IInterface(Clipboard)) then
    Clipboard.SetClipboard(TValue.From<string>('text'));
end.

// Отделите правило языка от удачного запуска FmxStyleLookup.
program FmxStyleLookup;
uses FMX.StdCtrls;
procedure UpdateButton(Button: TButton);
begin
  Button.StyleLookup := 'accentbuttonstyle';
  Button.ApplyStyleLookup;
end;
begin end.