begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

// FMX
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference);
begin
  SetLength(FCreateForms, Length(FCreateForms) + 1);
  FCreateForms[High(FCreateForms)].InstanceClass := InstanceClass;
  FCreateForms[High(FCreateForms)].Reference := @Reference;
end;

procedure TPlatformWin.Run;
begin
  { checking for canvas }
  if GlobalUseDirect2D then
    SetD2DDefault;

  Application.RealCreateForms; // реальное создание форм
  repeat
    try
      Application.HandleMessage;
    except
      Application.HandleException(Self);
    end;
  until Application.Terminated;
end;

procedure TApplication.RealCreateForms;
var
  Instance: TComponent;
  I: Integer;
begin
  // only one form are created
  if Length(FCreateForms) > 0 then
  begin
    for I := 0 to High(FCreateForms) do
    begin
      Instance := TComponent(FCreateForms[I].InstanceClass.NewInstance);
      TComponent(FCreateForms[I].Reference^) := Instance;
      try
        Instance.Create(Self);
      except
        TComponent(FCreateForms[I].Reference^) := nil;
        raise;
      end;
      if (FMainForm = nil) and (Instance is TCommonCustomForm) then
      begin
        FMainForm := TCommonCustomForm(Instance);
        FMainForm.Visible := True;
      end;
    end;
    SetLength(FCreateForms, 0);
  end;
end;