Помогите найти ошибку в delphi.

Создайте проект в котором вычисляется площадь выпуклого четырехугольника по известным длинам сторон АВ, ВС, СД, ДА и длиной диагонали АС. Используйте процедуру вычисления площади трикудника по формуле Герона. Составьте обработчик события OnClick первой кнопки, выполнение которого приведет к выведению решения задачи в окно сообщения.

var
Form1: TForm1;

implementation

procedure Geron (a,b,c:integer; s:real);
var p:real;
begin
p:=(a+b+c)/2;
s:= sqrt(p*(p-a)*(p-b)*(p-c));

end;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c:integer;
var s:real;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
c:=strtoint(edit3.text);
Geron(a,b,c,s);
showmessage(floattostr(s));

end;

end.

При любых числах в ответе выдает "0".