Eigene prozedur aufrufen?

[gekkorist]

Bitte wie

Delphi-Quellcode:

function fla(var a1,a2,a3:real):string;
var sf,s:real;
begin
sf:=a1+a2+a3;
s:=sf/2;
sf:=sqrt(s*(s-a1)*(s-a2)*(s-a3));
end;

so?

Wenn ich das dann so aufrufe

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
a,b,c :real;
begin
a:=StrToFloat(Edit1.Text );
b:=StrToFloat(Edit2.Text );
c:=StrToFloat(Edit3.Text );
edit4.Text :=fla(a,b,c);

erscheint nix... ich weiss nicht wieso.
Aber ich will das mit der Prozedure auch mal versuchen, aber wie geht daS? ^^