Function /Procedure

[poterp]

hallo,
ich versuche mal eine Function zu schreiben aber ich kriege noch einige fehler. so sieht mein Code aus:

Delphi-Quellcode:

public
    { Public declarations }
    function ergebnis(edt:TEdit; a, b, c, d, e: integer):integer;
    end;
......................................................................

function ergebnis(edt:TEdit; a, b, c, d, e: integer):integer;
begin
   a:= StrToInt(Edit1.Text);
  b:= StrtoInt(Edit3.Text);
  c:= StrToInt(Edit4.Text);
  d:= a + b + c;
  Edit5.Text:= IntToStr(d);
end;

procedure TForm1.Button4Click(Sender: TObject);
   var
   result: integer;
begin
   result:= ergbnis();
end;

Ich möchte in der Function die Werte von Edit1,Edit3 und Edit4 addieren und bei button click an
Edit5 zeigen lassen.

weisst jemand, wo es hackt?
grüß
poter