With

Оператор With - метод ускорения доступа к полям записи.

Это эквивалентно: Date[I].Month:=1; Date[I].Year:=Date[I].Year+1;

Синтаксис

With переменная, переменная, ... переменная Do оператор

Примеры
{ Операторы With }
  With Date[I] Do
  Begin
   Month:=1;
   Year:=Year+1;
  End;