ListView и StringGrid

[absxx]

При заполнении данными ListView, для определенного SubItem'a проверяется соответствие данных со StringGrid. Но сверяется только первая строка в гриде с данными перед заполнением. Подскажите пожалуйста, в чем ошибка

Вот код заполнения ListView:

procedure TForm1.AddNewFile(SR: TSearchRec;path:string);
var I:integer;
begin
 with ListView1.Items.Add, SR do
 begin
   Caption := Name;
   if (Attr and faDirectory) <> 0 then ImageIndex := 0
     else ImageIndex := 1;
   Size := Size div 1024;
   if Size = 0 then Size := 1;
   if (Attr and faDirectory) <> 0 then SubItems.Add('Папка')
    else SubItems.Add('Файл');
   SubItems.Add(DateTimeToStr((Date)));
   for i:=1 to StringGrid2.RowCount-1 do begin
        if (path=StringGrid2.Cells[1,i]) and (Caption=StringGrid2.Cells[2,i]) then
                SubItems.Add(StringGrid2.Cells[3,i])
           else SubItems.Add('');
      end;
 end;
end;

Вызов прроцедуры:

fa := faAnyFile;
   if FindFirst(path+'\'+'*.*', fa, SR) = 0 then
   repeat
   If (SR.Name <> '.') and (SR.Name <> '..') Then
    AddNewFile(SR,path);
   until FindNext(SR) <> 0;
    FindClose(SR);

[absxx]

Тема закрыта. Решение найдено=)