function GetNumSumFromStr(Str: string): Integer;
function IsNumber(SoureChar: Char): Boolean;
begin
Result := False;
if (Ord(SoureChar) >= 48) and (Ord(SoureChar) <= 57) then
Result := True;
end;
function AddNum(SearthStr: string): string;
var
I: Integer;
begin
Result := '';
I := 1;
while(IsNumber(SearthStr[I]))do
begin
Result := Result + SearthStr[I];
Inc(I);
end;
end;
var
I: Integer;
Sum: Integer;
Temp: string;
begin
Result := 0;
I := 1 ;
while I <= Length(Str) do
begin
if (i <> Length(Str)) and (IsNumber(str[i])) then
begin
Temp := AddNum(Copy(Str, I, Length(Str)));
Result := Result + StrToInt(Temp);
Inc(I, Length(Temp) + 1);
end else
Inc(i);
end;
end;