Addieren von Edits. Gehts auch kürzer?

[Ouou]

was ist an dem:

Delphi-Quellcode:

procedure TKostenaufstellung.EditExit(Sender: TObject);

var
  Zahl1, Zahl2, Zahl3, ...: Real;
  Ergebnis: Real;
begin
  Zahl1 := StrToFloatDef(Edit1.Text,0);
  Zahl2 := StrToFloatDef(Edit2.Text,0);
  Zahl3 := StrToFloatDef(Edit3.Text,0);
...
  Ergebnis := Zahl1+Zahl2+Zahl3+...;
  DbEdit13.Text := FloatToStrF (Ergebnis, ffFixed,8,2);
end;

anders als an meinem?