EsActivityBar does not update while application is busy

[PeterPanino]

Tried the \ErrorSoftVCLComponents-4.1.0-11\Samples\ActivityBar example in Alexandria. Works well while application is idle but:

procedure TMainForm.ckbActiveClick(Sender: TObject);
begin
  EsActivityBar.Active := TCheckBox(Sender).Checked;

  // EsActivityBar does not update while looping:
  if EsActivityBar.Active then
  begin
     for var i := 1 to 100000 do
       Self.Caption := FormatDateTime('YYMMDDHHSSZZZ', Now);
  end;
end;

Needs threading. Can you implement threading?