Calcular edad del niño en variables separadas

[TOPX]

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);

-