Aha, der Fehler kommt nicht vom case, sondern von den Zeilen der Art
Zitat:
edtRest.Text:=(einwurf-1.20);
einwurf ist eine Fließkommazahl genau wie das Ergebnis der Berechnung. Das musst Du erst wieder in einen String wandeln, bevor Du es dem Text des Edits zuweisen kannst.
edtRest.Text := FloatToStr(einwurf-1.20);