1. Wieso definierst du "status" als Floatingpoint-Variable, wenn Du dann mit "div" arbeitest statt mit "/"?
2. Warum benutzt Du "status" nicht auch gleich, um den Progressbar anzuzeigen?
3. wenn Du deinen Sourcecode übersichtlicher formatierst, hilfst Du Dir und uns
=> Leerzeichen, Einrücken, Gleichheitszeichen untereinander ausrichten, ...
4. Der Progressbar zeigt doch eh schon eine Prozentzahl an, oder? Dann könntest Du Dir das Progresslabel eigentlich sparen und direkt mit Progessbar.Position := Round(fdest / fsource * 100) arbeiten
Delphi-Quellcode:
var
fsource, fdest: Cardinal;
status: real;
begin
with Form1.Progressbar1 do begin
Min := 0; Max := 100;
end;
repeat
fdest := filesize(dest) div 10;
fsource := filesize(source) div 10;
status := fdest / fsource * 100;
form1.progreslabel.caption := Format('%3f %%', [status])
Form1.progressbar1.Position := Round(status);
...