Countdownfortschritt mit Progressbar darstellen?

[delphineuling88]

jetzt sieht es so aus bricht aber ab wen ich es ausführen will

Delphi-Quellcode:

max:= 0;
    max:= StrToInt(copy(edit5.Text,1,2)) * 3600;
    max:= max + StrToInt(copy(edit5.Text,4,2)) * 60;
    progressbar1.Max:= max + StrToInt(copy(edit5.Text,7,2));
    max:= 0;
    max:= StrToInt(copy(label8.caption,1,2)) * 3600;
    max:= max + StrToInt(copy(label8.caption,4,2)) * 60;
    progressbar1.position:= max + StrToInt(copy(label8.caption,7,2));