[KOOL]

Код:

if s=list_note.Items.Item[list_note.ItemIndex].SubItems.ValueFromIndex[1] then
//надо if s=list_note.Items.Item[list_note.ItemIndex].SubItems.Strings[2]
    begin
    FileNote.Delete(i);
    FileNote.Delete(i+1);//так нельзя делать
    FileNote.Delete(i+2);//при удалении строки i строка i+1
    FileNote.Delete(i+3);//становится на ее место. надо 5 раз 
    FileNote.Delete(i+4);//удалить строку i
    end
  else
    begin
    inc(i,5);//почему на 5???
    end;