progress bar

[nailor]

Delphi-Quellcode:

progressbar1.max := 26;
progressbar1.position := 0;
for i := 0 to 25 do
   begin
   //hier deine schöne rechnung
   progressbar1.position := inc(progressbar1.position);
   end;
Showmessage('Puh! Ich armer PC hab alles gerechnet');