try ... except EConvertError

[arc]

Das ist ein super Tip, habe das gleiche Problem und die Lösung gleich umgesetzt.

Ich nehme für Integer gern die alte val funktion, da es mir idR genügt eine 0 zu haben falls ein Fehler auftritt.

Code:

  if not TryStrToCurr(s, result) then result:=0;