Como mostrar a Idade da pessoa em Anos, Meses, Semanas e Dias ? A partir da data de nascimento até o dia atual (Print de exemplo: https://prnt.sc/ame)

var
  dDataIni, dDataFim: TDate;
  Ano1, Mes1, Dia1: word;
  Ano2, Mes2, Dia2: word;
  Anos, Meses, Dias: integer;
begin
  dDataFim := System.SysUtils.Date; // data atual, obtida do sistema
  dDataIni := DateTimePickerInicial.Date; // no lugar de TEdit usei DateTimePicker

  // separa a data inicial e final em dia, mes e ano
  System.SysUtils.DecodeDate(dDataIni, Ano1, Mes1, Dia1);
  System.SysUtils.DecodeDate(dDataFim, Ano2, Mes2, Dia2);

  // faz os cálculos para obter a idade em dias, meses e anos
  Anos := Ano2 - Ano1;
  Meses := Mes2 - Mes1;
  Dias := Dia2 - Dia1;
  if (Dias < 0) then
  begin
    Dec(Meses);
    Dias := 30 + Dias;
  end;
  if (Meses < 0) then
  begin
    Dec(Anos);
    Meses := 12 + Meses;
  end;

  // apresenta a mensagem na tela
  Vcl.Dialogs.ShowMessage(Format('%d anos, %d Meses e %d Dias', [Anos, Meses, Dias]));
end;