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

[Fesih ARSLAN]

Merhaba,
Thread içerisinden VCL bileşen özelliklerini Synchronize veya Queue ile set edebilirsiniz.
Kodunuzu aşağıdaki gibi değiştirirseniz, sorun muhtemelen çözülecektir.

  TThread.CreateAnonymousThread(
   procedure()
   var
     a, say: integer;
   begin
     say := lblBekleyen.Text.ToInteger;
     for a := 0 to say do
     begin
       TThread.Sleep(100);
       TThread.Queue(TThread.CurrentThread,
         procedure()
         begin
           lblBekleyen.Text := a.ToString;
         end);
     end;
   end).Start;