Tempo - mostrar total anos, meses e dias

Mostrando o numero de dias em forma de String

Function NumDiasExtenso(NumDias:integer):string;

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

    NumDiasExtenso :=

    InttoStr(Anos)+sAnos+inttostr(Meses)+sMeses+inttostr(Dias)+sDias;

end;