Ich verwende für fehlertolerante String to Integer so eine Funktion
Code:
function QDStrToInt(const str : String) : Integer;
var i : Integer;
begin
Result := 0;
for i := 1 to Length(str) do
if (str[i]>='0') and (str[i]<='9') then
Result := Result * 10 + Integer(str[i]) - Integer('0')
else break;
end;