lt;lt;lt;lt;lt;lt;lt;CALCULAR IDADE ME AJUDAgt;gt;

Oi galera me ajuda.......Eu achei esta funçao na internet , + como faço para usa no delphi....Eu quero calcuala Idade , quando digita a data de Nascimento(Edinicial) e data Autual(EdFinal) e sai o resultado na Label como STRING....... agradeço Jairo-GO

var
Anos, Meses, Dias : integer;
sAnos, sMeses, sDias : string;
begin
{ --- Calcula o número de anos --- }
Anos := 0;
while NumDias >= 365 do
begin
Anos := Anos + 1;
NumDias := NumDias - 365;
end;
if Anos > 1 then
sAnos := ´ anos,´
else
sAnos := ´ ano,´;
{ --- Calcula o número de meses --- }
Meses := 0;
while NumDias >= 30 do
begin
Meses := Meses + 1;
NumDias := NumDias - 30;
end;
if Meses > 1 then
sMeses := ´ meses e ´
else
sAnos := ´ mês e ´;
{ --- O Número de dias é a sobra --- }
Dias := NumDias;
if sDias > 1 then
sDias := ´dias´
else
sDias := ´dia´;
Return := Inttostr(Anos)+sAnos+inttostr(Meses)+sMeses+inttostr(Dias)+sDias;
end;

Meu Email: jairobig@hotmail.com