Hallo egarF!
platziere einfach nur eine prograssbar und einen timer auf deinen canvas und dann setze die Interval-property vom timer zum Beispiel auf 100.
dann schreibe im onTimer event folgendes:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if progressbar1.Position=100 then
progressbar1.step:=-10
else if progressbar1.Position=0 then
progressbar1.step:=10;
progressbar1.Stepit;
end;
das bringt deine statusbar zum laufen.
Gruß
Jan