Procedure

[himitsu]

ups, mein Fehler

so sollte es gehn.
procedure TFAnwendung.Addieren (Zahl1, Zahl2 : integer; Out Ergebnis : integer);
Mir kam der Nick bekannt vor.
Also dann ... herzlich Willkommen.


Also wenn Anfänger, dann empfehle ich dir in diesem Fall die Variante mit der Funktion,
function TFAnwendung.Addieren (Zahl1, Zahl2 : integer) : integer; denn so ist auch beim Aufruf der Funktion zu erkennen welches der Rückgabewert ist.
Ergebnis := Addieren(Zahl1, Zahl2); Hast ja selber bestimmt auch bemerkt, daß der Rückgabewert im Edit (edtAdd) nicht stimmt.

Schließlich wurde bei dir das Rechenergebnis nicht in der Variable Ergebnis gespeichert, da dieses in der Funktion Addieren nur als Eingabeparameter definiert war.

Und selbst wenn man dies als Ausgabeparameter definiert, kann man beim Aufruf nicht erkennen das sich da was geändert hat. (Eingabe- <> Ausgabe-Parameter)