Rechnen

[Speedy10]

Hallo Delphi Programmierers,
für ein kleines Projekt bin ich seit Tagen beschäftigt, eine Routine zu schreiben zum Thema Rechnen. Ziel dieser Aufgabe ist, es dass nach der Eingabe von Zahl 1 und Zahl 2 mit dem Ergebnis im Memofeld ausgerechnet angezeigt wird. Das klappt problemlos. Mein Problem ist jedoch, dass ich die Endergebnisse, die bereits im Memofeld sichtbar sind, nicht als Gesamtergebnis in der ausgerechneten Form angezeigt bekomme. Da ich leider Anfänger bin, komme ich mit diesem Schritt nicht weiter und hoffe, Ihr könnt mir weiterhelfen bzw. Tipps geben, wie man auf dem einfachsten Wege das Problem löst. Im Voraus herzlichen Dank.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var 
  zahl1, zahl2, Ergebnis:real;
begin
  zahl1:=strtofloat(edit1.Text);
  zahl2:=strtofloat(edit2.text);
  Ergebnis:=zahl1*zahl2;
  edit3.text:=floattostr(Ergebnis);
  memo1.lines.Append(#9+edit1.Text+#9+edit2.Text+#9+edit3.Text);
end;