problem beim erstellen einer Funktion

[pacman1986]

Delphi-Quellcode:

function addieren(a,b:integer):integer;
begin
  result:=a+b;
end;

Aufruf Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var zahl1,zahl2,endzahl:integer;
begin
  zahl1 := StrToInt(edit1.Text);
  zahl2 := StrToInt(edit2.Text);
  endzahl := addieren(zahl1,zahl2);
end;

edit:delphitags