Tempo - Idade a partir da data fornecida

// Retorna a idade comparando com a data fornecida.

// Adicionar a unit DateUtils na clausula uses

function Idade(Data: TDateTime):String;

var

  Anos, Meses:integer;

begin

  Anos := YearOf(Date) - YearOf(Data);

  Meses := MonthOf(Date) - MonthOf(Data);

  if Meses < 0 then

  begin

    Anos := Anos - 1;

    Meses := 12 + Meses;

  end;

  Result := IntToStr(Anos) +  'a' + IntToStr(Meses) + 'm';

end;