Лидеры

Может поможет настройка рендеринга приложения, при использовании у меня скорость анимацию увеличивается, а качество изображения незаметно, где то на форуме было: procedure RenderingSetupCallback(const Sender, Context: TObject; var ColorBits, DepthBits: Integer; var Stencil: Boolean; var Multisamples: Integer); begin ColorBits := 16; // default is 24 DepthBits := 0; // default is 24 Stencil := false; // default is True Multisamples := 0; // default depends on TForm.Quality or TForm3D.Multisample end; И прописать в событии FormCreate procedure TForm_main.FormCreate(Sender: TObject); var SetupService: IFMXRenderingSetupService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXRenderingSetupService, IInterface(SetupService)) then SetupService.Subscribe(RenderingSetupCallback); end;