Edit.Text -> Einzelnen Wert abarbeiten

[Elexarie]

Code:

while (EValue <> 0)
  do
      begin
           Crosstotal := 0;
           Crosstotal := Crosstotal + (EValue mod 10);
           Crosstotal := EValue div 10;
      end;

EValue : EditFeld
Crosstotal : Quersumme

Was fehlt da jetzt?!