Mach es so:
Delphi-Quellcode:
function fla(var a1,a2,a3:real):string;
var sf,s:real;
begin
sf:=a1+a2+a3;
s:=sf/2;
Result:=sqrt(s*(s-a1)*(s-a2)*(s-a3));
end;
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);
Eine Funktion ist hier einfach ... praktischer, weil du einen Wert zurückgeben möchtest