Du kannst auf die Ziffern bereits Array-mäßig zugreifen

=
Also ungefähr so:
Delphi-Quellcode:
zahl1 := Edit1.Text;
zahl2 := Edit2.Text;
while (zahl1.length < zahl2.length)
zahl1 := '0' + zahl1;
while (zahl2.length < zahl1.length)
zahl2 := '0' + zahl2;
setlength(Result, zahl1.length);
temp := 0;
carry := 0;
for i := zahl1.length downto 1 do
begin
temp := strtoint(zahl1[i]) + strtoint(zahl2[i]) + carry;
Result[i] := temp mod 10;
carry := temp div 10;
end;
if carry > 0 then
Result := inttostr(carry) + Result;
Edit: Diverse Verbesssungen