[Кодер]

Короч суть в чем:

Есть текстовый файл в нём 16 строк, все их нужно забить в компонент.
Написал такую процедурку:

Код:

k:=-4;
for i:=0 to f.Count-1 do begin
k:=k+4;
with frm_ofice.nlist.Items.Add do
      begin
        Caption:=f.Strings[k];
        SubItems.Add(f.Strings[k+1]);
        SubItems.Add(f.Strings[k+2]);
        SubItems.Add(f.Strings[k+3]);
      end;
end;

Компилятор ругается, типа List Index bounds of 16 или чтото вроде..
Помогите плз!