Как вычислить кол-во дней между двумя датами и перевести в кол-во лет, мес. дней?

unit UCalend1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Vcl.Buttons, Vcl.ExtCtrls, DateUtils;
 
type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Edit3: TEdit;
    Label6: TLabel;
    Label14: TLabel;
    Edit4: TEdit;
    Label16: TLabel;
    MonthCalendar1: TMonthCalendar;
    MonthCalendar2: TMonthCalendar;
    Button3: TButton;
    Label1: TLabel;
 
    procedure MonthCalendar1Click(Sender: TObject);
    procedure MonthCalendar2Click(Sender: TObject);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button3Click(Sender: TObject);
var MonCount1,MonCount2,D_od,F_MC,SY,SM,SD:integer;
    S,SY_v:string;
    D,Dend:TDateTime;
begin
 
 if (Edit3.Text='') or (Edit4.Text='') then
 begin
  Application.MessageBox('Введены не все данные', 'Ошибка!', MB_ICONEXCLAMATION);
  Exit;
 end;
 
RichEdit1.Lines.Clear;
SY:=0;                  //Счетчик лет
SM:=0;                  //Счетчик месяцев
SD:=0;                  //Счетчик дней
 
D:=StrToDate(Edit3.Text);      //Перевести текущее строковое содержимое окна "Начальная дата" в дату
Dend:=StrToDate(Edit4.Text);   //Перевести текущее строковое содержимое окна "Конечная дата" в дату
 
 if D>=Dend then
 begin
  Application.MessageBox('Начальная дата не должна быть равна Конечной дате или превышать ее', 'Ошибка!', MB_ICONEXCLAMATION);
  Exit;
 end;
 
D_od:=DayOfTheMonth(StrToDate(Edit3.Text)); //Первый день
MonCount1:=MonthOfTheYear(D);               //Номер месяца из даты первого дня
 
F_MC:=1;                                    //Флаг, показывающий, что в текущем месяце новый месяц уже был
                                            //приплюсован к счетчику месяцев - первый месяц не считаем
repeat
 D:=D+1;                                  //Увеличить текущую дату на 1 день (При запуске цикла сразу увеличиваем дату на 1 день, т.к. первый день не считается)
 SD:=SD+1;                                //Увеличить на 1 счетчик дней
 
 MonCount2:=MonthOfTheYear(D);            //Номер текущего месяца из текущей даты
 
 if MonCount1<>MonCount2 then            //Проверка - не наступил ли новый месяц?
  begin
   MonCount1:=MonCount2;                 //Наступил новый месяц - запомнить его номер,
   F_MC:=0;                              //и обнулить счетчик месяцев - готовность приплюсовать новый месяц
  end;
 
 if DayOfTheMonth(D)<>D_od then            //Если номер текущего дня не равен номеру первого дня, то
  begin
   if (DayOfTheMonth(D)=DaysInMonth(D))and(F_MC=0) then //надо узнать не достигнут ли последний день в текущем
    begin                                               //месяце и, если в текущем месяце новый месяц
     SM:=SM+1;                                          //приплюсован не был, то увеличить счетчик месяцев на 1
     SD:=0;                                             //Обнулить счетчик дней
    end
    else
     begin
                                                        //Здесь что-нибудь делаем
     end;
  end
  else
   begin
    SM:=SM+1;                             //Текущий день нового месяца равен первому дню - значит прошел очередной месяц и надо увеличить счетчик месяцев на 1
    F_MC:=1;                              //Запомнить, что в текущем месяце счетчик месяцев уже увеличен на 1
    SD:=0;                                //Обнулить счетчик дней
   end;
 
 if SM=12 then
  begin
   SM:=0;
   SY:=SY+1;
  end;
 
 S:=FormatDateTime('dd.mm.yyyy г.',D);
 
 case SY of 1,21,31,41,51,61,71,81,91,101:SY_v:='год';
            2,3,4,22,23,24,32,33,34,42,43,44,52,53,54,62,63,64,72,73,74,82,83,84,92,93,94:SY_v:='года';
 else SY_v:='лет';
 end;
 
 Label1.Caption:=IntToStr(SY)+' '+SY_v+' '+IntToStr(SM)+' мес. '+IntToStr(SD)+' дн.  '+'(всего: '+IntToStr(DaysBetween(StrToDate(Edit4.Text),StrToDate(Edit3.Text)))+' дн.)';
 RichEdit1.Lines.Add(S+': '+IntToStr(SY)+' '+SY_v+' '+IntToStr(SM)+' мес. '+IntToStr(SD)+' дн.');
 
until D=Dend;
 
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
  Key := Chr(0); //Запретить ввод любых символов - здесь вводится дата с календаря
end;
 
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
  Key := Chr(0); //Запретить ввод любых символов - здесь вводится дата с календаря
end;
 
procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
 Edit3.Text:= DateToStr(MonthCalendar1.date); //Начальная дата
 Form1.SetFocus;
end;
 
procedure TForm1.MonthCalendar2Click(Sender: TObject);
begin
 Edit4.Text:= DateToStr(MonthCalendar2.date); //Конечная дата
 Form1.SetFocus;
end;
 
end.