Buenas.
Ahora trate de cambiar la definición de la función, por algo como
Código Delphi
[-]procedure CalculaEdadCompleta(Fecha: TDateTime;var Anio,Mes,Dia: Double);
var A, AA, M, MM, D, DD: Word;
begin
Y el llamado, por algo como:
Código Delphi
[-]CalculaEdadCompleta(fnacimiento,fanio,fmes,fdia);
etanios.caption:=FloatToStr(fanio);
etmeses.caption:=FloatToStr(fmes);
etdias.caption:=FloatToStr(fdia);
-