Hi
Du musst in dieser Zeile aufpassen, dass du wirklich nur Text umwandeln willst, welcher auch wirklich eine Ziffer beinhaltet:
ProgressBar1.Position := StrToInt(copy(Edit1.Text,7,3));
Du hast diese Sache ja schon mit einem Try-Except-End-Block abgefangen. Führst du dein Programm jedoch innerhalb von Delphi aus, dann meldet er dennoch diesen "Fehler". Das ist aber normal und auch gewünscht. Starte dein Programm mal ohne Delphi, dann sollte es ohne Probleme funktionieren
Wenn du dies ohne Try-Except lösen möchtest, müsstest du die einzelnen Buchstaben checken, ob diese zwischen 0 und 9 liegen.
bis dann