Вывод с таблицы в Делфи

procedure TForm67.FormCreate(Sender: TObject);
const
  MdbConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';
begin
 ADOConnection1.ConnectionString := Format(MdbConnectionString, [ExtractFilePath(ParamStr(0)) + 'HappyBirthday.mdb']);
 try
   ADOConnection1.Open;
   ADOQuery1.Open;
   Timer1.Interval := 1000;
   Timer1.Enabled := True;
 except on E: Exception
   do begin
      MessageDlg(E.Message, mtError, [mbOk], 0, mbOk);
      Application.Terminate;
      end;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
const
  MdbConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';
begin
 con1.ConnectionString := Format(MdbConnectionString, [ExtractFilePath(ParamStr(0)) + 'HappyBirthday.mdb']);
 try
   con1.Open;
   qry1.Open;
   tmr1.Interval := 1000;
   tmr1.Enabled := True;
 except on E: Exception
   do begin
      MessageDlg(E.Message, mtError, [mbOk], 0);
      Application.Terminate;
      end;
 end;
end;
 
procedure TForm1.tmr1Timer(Sender: TObject);
begin
 qry1.Requery;
 if qry1.IsEmpty then Exit;
 mmo1.Clear;
 while not qry1.Eof
 do begin
    mmo1.Lines.Add(qry1.FieldByName('FIO').AsString + ' ' + qry1.FieldByName('DB').AsString);
    qry1.Next;
    end;
end;
 
end.

con1.Active := False;
con1.ConnectionString := Format(MdbConnectionString, [ExtractFilePath(ParamStr(0)) + 'HappyBirthday.mdb']);

var iYear: integer;
begin
 iYear:=YearsBetween(Now, Query1.Fields[xxx].asDateTime);
end;

IntToStr(YearsBetween(Now, Query1.Fields[xxx].asDateTime))

mmo1.Lines.Add(qry1.FieldByName('FIO').AsString + ' ' + DateToStr(YearsBetween(Now,qry1.FieldByName[DB].asDateTime));