自定义函数总提示警告

Question

function Agejisuan(birthday:string='20070101'):integer; //声明函数，计算年龄function TForm1.Agejisuan(birthday:string):integer;//定义函数，计算年龄，参数格式为20070101
var nowstr,yearnow,monthnow,yearbirthday,monthbirthday:string;
begin
  nowstr:=formatdatetime('yyyymmdd',now());
  yearnow:=copy(nowstr,1,4);
  monthnow:=copy(nowstr,5,2);
  yearbirthday:=copy(birthday,1,4);
  monthbirthday:=copy(birthday,5,2);
  if strtoint(monthbirthday)> strtoint(monthnow) then
    Result:=strtoint(yearnow)-strtoint(yearbirthday)-1
  else  Result:=strtoint(yearnow)-strtoint(yearbirthday);
end;刚开始运行正常，第二次就会出现“return value of function 'TForm1.Agejisuan'might be undefined”为什么？？

Answer 1

在程序的type中加上一句：
function Agejisuan(birthday:string):integer;
你看每个过程在其中都有类型的声明，函数也应该有。

Answer 2

我的声明就是放在了type中，每次都可以运行，但是有这个警告。我定义了两个函数，另一个没有警告，我看不出来有什么区别啊？？