function AddNumStrings (Str1, Str2 : string): string; var i : integer; carryStr : string; worker : integer; workerStr,s : string; begin Result := inttos
Hopefully one of those will be faster...