Delphi Firemonkey: как определить, когда ОС (Android / iOS) отключается

[Lomanu4]

uses FMX.Platform;

procedure TMyForm.FormCreate(Sender: TObject);
var
  AppEventSvc: IFMXApplicationEventService;
begin
  if TPlatformServices.Current.SupportsPlatformService
    (IFMXApplicationEventService, IInterface(AppEventSvc)) then
  begin
    AppEventSvc.SetApplicationEventHandler(AppEvent);
  end;
end;

function TMyForm.AppEvent(AAppEvent: TApplicationEvent;
AContext: TObject): Boolean;
begin
  if AAppEvent = TApplicationEvent.WillTerminate then
  begin
    // Do soomething
  end;
  Result := true;
end;

Обратите внимание, что вы не можете рассчитывать на то, что это сообщение будет запущено, по крайней мере, на iOS. Если приложение переходит в фоновый режим, iOS может удалить его из памяти, чтобы освободить память. В этой ситуации вы не получите сообщение о завершении. Поэтому вы также должны обрабатывать сообщение «введено фоновое», как если бы приложение закрылось.