Procedure...
var a, b, c, s: real;
begin
a:= strtofloat(edit1.text);
b:= strtofloat(edit2.text);
c:= strtofloat(edit3.text);
s:= (a + b + c)/3;
edit4.text:= floattostr(s);
end;
