Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Prozentsatz in einer ProgressBar anzeigen?

**AlexII**

Hallo,
hab schon nach einer Lösung gesucht, aber kann trotzdem nicht verstehen, wie ich folgendes in den ProgressBars anzeigen soll:

markieren

Delphi-Quellcode:

			procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button3.Caption)*100/summe, 1));

Label2.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button4.Caption)*100/summe, 1));

Label3.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button5.Caption)*100/summe, 1));

Label4.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button6.Caption)*100/summe, 1));

Label5.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button7.Caption)*100/summe, 1));

Label6.Caption:=FloatToStr(RundeAufStelle(StrToFloat(Button8.Caption)*100/summe, 1));

end;

Also anstatt Labels möchte ich ProgressBar setzen. Wer hilft mir dabei?