Ejecución bloqueada. Hilos de ejecución

[NicolasP]

Tema viejo , pero hago un aporte. Después de buscar y leer por varios días post que dicen "lea este post..." lo pude hacer funcionar el AniIndicator para que se "mueva" con un proceso.
Me funciona en windows y también en Android 6.0 con D X7

Form Principal.

Código Delphi [-]
procedure TFmMAin.SB_DbReadClick(Sender: Tobject);

begin

 PAnelAviso.Visible := true;
 AniIndicator1.Enabled := true;
 Hilo := THilo.Create(True);
 Hilo.Start;
 while not Hilo.Finished do
  begin
   ProgressBar1.value := ProgressBar1.Value +1;
   sleep(20);
   if ProgressBar1.Value = 100 then
     ProgressBar1.Value := 0;
     Application.ProcessMessages;
  end;
 ProgressBar1.Value := 0;
 AniIndicator1.Enabled := false;
 PAnelAviso.Visible := false;

.....

Nota: El AniIndicator esta en un Panel. Le puse también un Progressbar para ver si funcionaban juntos. y funcionan!. Sin en el Application.ProcessMessages no funcionan.


Unidad para el proceso

Código Delphi [-]
unit procesos;

interface
uses
Classes, SysUtils;

type
  THilo = class(TThread)
  protected
  procedure Execute; override;
end;


implementation
 uses main;

procedure THilo.Execute;
begin
  FmMain.RestRequest1.Execute;
end;

end.

No se si es eficiente, pero no me importa. Lo importante que el usuario crea que lo es (ja) . Y vea que su dispositivo esta "pensando" ... después le podemos echar la culpa a las comunicaciones, etc....