Инициализация Integer или real, пустое значение.

[Winexcel]

Здравствуйте! Возникла такая трабла, есть источник(сайт) на котором есть информация о баллах разных серверов, содержится эта информация в таком виде(все три вида как пример):

123 units
-123 units
units

Красным обвёл то где трабла, бывает что значения просто нет , вывожу цифры я так

function StrToNums(Str:String):Integer;
var
	i:integer;
	Dest:String;
	Negative:Boolean;
begin
	if Str = EmptyStr then
		exit;
	for i := 1 to length(str) do begin
		if (StrToIntDef(Str[i], -1) in[0..9]) then
			Dest := Dest + str[i]
		else if (Str[i] = '-')  then
			Negative := TRUE
		else if (Str[i] = '+') then
			continue
		else
			break;
	end;
	Result :=0;
	if Negative then
		Result := Result - StrToInt(Dest)
	else
		Result := StrToInt(Dest);
end;

Функция работает ровно до того пока не встретит траблу с пустым числом, не знаю даже как выйти из ситуации, заполняю объект через регулярку этими числами. Ошибку получаю Is not valid integer, что и понятно.

[Stilet]

function ParseInt(s:string):Integer;
var i,e:integer
begin
 val(s,i,e);
 if e=0 then begin result:=i; exit;end;
 val(copy(s,1,e-1),i,e);
 if e=0 then begin result:=i; end else Result:=0;
end.

Это в качестве идеи. Не проверял.