Versuch mal, alzaimars Code nachzuvollziehen...Der Algorithmus geht von einem mit 0 initialisierten Wert aus...Da hättest du mit ein paar Sekunden Analyse aber auch drauf kommen können...
Correctamente, zumal "decimal := 0;" auch in der Schleife bei jedem erkannten nicht-numersichen Symbol ausgeführt ist.
Delphi-Narr, Du hast Dir den Spass genommen, das alleine rauszufinden. So geht das aber nunmal beim Programmieren: Man muss selbst Dreck fressen und rumheulen, bis man von selbst auf die Lösung kommt. Nur so wird man wirklich gut.
Nächstes mal probierst Du selbst rum und versuchst, das Problem zu verstehen, ok?