Thread içerinde for ve sleep işleminde uygulama kırılmasını önleme

[Halil Han BADEM]

(03-04-2020, Saat: 14:37)pro_imaj Adlı Kullanıcıdan Alıntı: Merhaba,

Label içindeki sayıyı görsellik olması açısında aşağıdaki thread ile 0 sayısından başlatarak ilgili sayıya kadar göstermek istiyorum.

Windows tarafında aşağıdaki şekilde istediğim oluyorken mobil tarafta uygulama kırılıyor (kapanıyor)
Bu konuda nasıl bir yöntem izlemek gerekir.

 
 TThread.CreateAnonymousThread(
   procedure()
   var
     a: integer;
   begin
     TThread.Synchronize(TThread.CurrentThread,
       procedure()

       begin

       end);
     try
       for a := 0 to StrToInt(lblBekleyen.Text) do
       begin
         Sleep(1);
         lblBekleyen.Text := a.ToString;
       end;
     finally

     end;
   end).Start;

 
procedure TForm1.Button1Click(Sender: TObject)
var
    a: integer;
begin
TThread.CreateAnonymousThread(
   procedure()
  begin
      for a := 0 to StrToInt(lblBekleyen.Text) do
      begin
        Sleep(1);
    
     TThread.Synchronize(TThread.CurrentThread,
      procedure()
      begin
         lblBekleyen.Text := a.ToString;
      end);

      end;
  end).Start;

Test etmedim. Çalışacak mı diye kontrol eder misiniz?
A değişkenini ana prosedür/fonksiyona tanımlama yapmanız daha uygun olacaktır.