Как определить количество прошедших минут между двумя событиями?

.........
  public
    t0, t1: TDateTime;
    S: String;
    nt: integer;
  end;
.......
procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimeToString(S, 'c', t1); // Ранее сохранённые дата и время.
  Edit1.Text:=S;
  //--------------------------------------
  DateTimeToString(S,'ddddd t', Now()); // Как-то "не красиво" - получаю строку и вновь перевожу её в TDateTime.
  t0:=StrToDateTime(S);
  if t1<>t0 then begin
    nt:=Trunc((t0-t1)*MinsPerDay); // Кол-во прошедших минут.
    t1:=t0;
  end;
  //--------------------------------------
  DateTimeToString(S, 'c', t1); // Текущие дата и время.
  Edit2.Text:=S;
  Edit3.Text:=IntToStr(nt);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DateTimeToString(S, 'c', t1);  // Ранее сохранённые дата и время.
  Edit1.Text:=S;
  //--------------------------------------
  t0:=RecodeSecond(Now, 0);      // Время без секунд.
  nt:=MinutesBetween(t0,t1); // Кол-во прошедших минут.
  if t1<>t0 then t1:=t0;
  //--------------------------------------
  DateTimeToString(S, 'c', t1); // Текущие дата и время.
  Edit2.Text:=S;
  Edit3.Text:=IntToStr(nt);
end;