Summe von Editfelder für Addition

[omega]

Hallo Leute!

Habe folgendes Problem:

Aus 2 Zufallszahlen soll der Benutzer das Ergebnis in jeweiligem Editfeld eintragen (Zehner, Hunderter, Tausender-Stelle)!
Die Addierung klappt bei einem fünfstelligen Ergebnis auch super, allerdings nicht bie z.B. vierstelligem Ergebnis.

Delphi-Quellcode:

procedure ();
try e8:= strtoint(edit8.text); edit7.setfocus; except e8 :=0; end;
try e7:= strtoint(edit7.text); edit6.setfocus; except e7 :=0; end;
try e6:= strtoint(edit6.text); edit5.setfocus; except e6 :=0; end;
try e5:= strtoint(edit5.text); edit4.setfocus; except e5 :=0; end;
try e4:= strtoint(edit4.text); except e4 :=0; end;
Summe:= e4*10000 + e5*1000 + e6*100 + e7*10 + e8;
if Summe = (strtoint(edit2.text) + strtoint(edit3.text)) then
edit1.text := 'Richtig!';

e8-->e4 Editfelder von rechts nach links!
Summe ist integer und e8..e4 ist byte

Danke im Voraus!

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]