procedure TForm1.FormOnIdle(Sender: TObject; var Done: Boolean);
begin
if T = 0 then Exit;
if vr1.ViewStyle <> vsxThumbs then begin
   StatusBar1.Panels[3].Text := ' ';
   StatusBar1.Panels[2].Text := ' ';
   exit;
end;
ProgressBar1.Position := vr1.ThumbsOptions.CacheOptions.ThumbsCount;
if ProgressBar1.Position = ProgressBar1.Max then begin
   StatusBar1.Panels[2].Text := Format(' Elapsed Time: %f sec', [(GetTickCount - T)/1000]);
   T := 0;
end;
StatusBar1.Panels[3].Text := Format(' %d/%d image files', [ProgressBar1.Position, ProgressBar1.Max]);
ProgressBar1.Position :=0;
End;