Zitat von
ManuMF:
1. Rechnen
2. Runden
Label1.Caption := IntToStr(Round(Position / Max * 100)) + ' %';
Gruß,
ManuMF
Oh, vielen Dank!
Jetzt gehts!
Bin wohl ans Ende vom Integer gekommen.
mfg
Helmi 
>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<