[Кодер]

Огромное спасибо!

А в чом проблема была?
И как можно сделать так чтобы если f.strings[i] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

With frm_ofice.nlist.Items.Add Do
        Begin
          Caption:=f.Strings[i];
          SubItems.Add(f.Strings[I+1]);
          SubItems.Add(f.Strings[I+2]);
          SubItems.Add(f.Strings[I+3]);
          Inc(I,4);
        End;