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

[pro_imaj]

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;