[kwan]

Hola estoy haciendo una aplicacion donde meto en un MaskEdit una fecha, y en un label me da la edad, hasta hay bien pero quiero que en otro MasEdit meta una nueva fecha en vez de la actual para obtener el resultado de la edad que tendra en esa fecha, osea que quiero saber que edad tendra en octubre del 2004 sabiendo la fecha de nacimiento, el que tengo ahora es este pero no me vale.

procedure TForm1.Button1Click(Sender: TObject);
function Edad(FechaNacimiento:string):integer;
var
iTemp,iTemp2,Nada:word;
Fecha:TDate;
begin

Fecha:=StrToDate(FechaNacimiento);
DecodeDate(Date,itemp,Nada,Nada);
DecodeDate(Fecha,itemp2,Nada,Nada);
if FormatDateTime('mmdd',Date) <
FormatDateTime('mmdd',Fecha)
then Result:=iTemp-iTemp2-1
else Result:=iTemp-iTemp2;
end;

begin
try
Label1.Caption:=intToStr(Edad(MaskEdit1.text));
except
showmessage('Debes introcudirlo de esta forma'#13'dd/mm/aaaa'#13'Gracias.');
end;

Gracias.
Kwan