Rekursive funktionen

[mo-noob]

Das Programm soll die Zahlen von 1 bis n mittels einer rekursiven funktion addieren.

Ich bin ratlos wieso folgende Fehlermeldungen auftreten! bitte helft mir ...

[Fehler] Unit1.pas(39): Ausdruck erwartet, aber 'FUNCTION' gefunden
[Fehler] Unit1.pas(39): Fehlender Parametertyp
[Fehler] Unit1.pas(39): Die überladene Prozedur 'summe' muss mit der Direktive 'overload' gekennzeichnet sein



function summe(n:integer): integer;
begin
if n=1 then result:=1
else result:=n+summe(n-1)
end;

procedure TForm1.Button1Click(Sender: TObject);
var n,erg:integer;
begin
n:=strtoint(edit1.text);
erg:=function summe(n);
edit2.text:=inttostr(erg);

end;

danke für die Hilfe schonmal im Vorraus mfg mo