Komponenten dazu findest du auf
Torry's.
Mit Delphi Bordmitteln kann man relativ leicht mit der Komponente
TAnimate die laufende Arbeit anzeigen.
Bei jeden Umlauf deiner Arbeitsschleife wird dann noch Folgendes ausgeführt:
Delphi-Quellcode:
// FAnimationFrame : integer;
procedure TForm1.ShowProgress;
begin
Animate1.Seek(FAnimationFrame);
FAnimationFrame := (FAnimationFrame+1) mod Animate1.FrameCount;
end;