How to log messages on FireMonkey for debugging

uses FMX.Platform;

var
  LoggingService: IFMXLoggingService;
begin
  LoggingService := FMX.Platform.TPlatformServices.Current.GetPlatformService(IFMXLoggingService) as IFMXLoggingService;

  if Assigned(LoggingService) then
      LoggingService.Log('QuickSort done!', []);
end;