ios - マルチスレッドで作業するときのラグを取り除く方法

Question

参照:スレッド化によるワークロードの実行中にスピナーをアニメーション化する方法

iOS用のDelphi xe5アプリケーションを使用しています。SQL クエリの実行中に、TAniIndicator が回転します。私はスレッドを使用しています - 特定のコードについては、上記の記事を参照してください。

すべてが機能しますが、前の質問で助けられたコードを使用すると、ラグが追加されていることに気付きました。デバッガーで実行すると、アプリケーションは次の行の間でハングします。

Thread.DoTerminate;
Thread.FFinished := True;

System.Classes ユニットの ThreadProc 関数の下

理由についての手がかりはありますか？または、追加された 5 秒のラグを防ぐために何ができますか? ありがとうございました

TLama への返信を更新します。

procedure TForm_Login.WorkIsDone(Sender : TObject);
begin
  Form_Login.LoadSpinnerFrame.visible := False;
  Form_Login.LoadSpinner.Visible := False;
  Form_Login.LoadSpinner.Enabled := False;
  Form_Login.btnLogin.Text := 'Logout';
  Form_Login.btnLogin.Enabled := True;
  if GoodLogin = 1 then
    Main_Form.show;
end;

私の onTerminate() は上記の手順にリンクされています。