поиск текста из edit по StringGrid [?]

[dalien]

Доброго времени.
Возникла проблема при работе со StringGrid. Помогите пожалуйста кто может.
У меня есть Edit и StringGrid с N количеством строк которые загружаются из БД.
Мне необходимо сравнить текст введенный в Edit с текстом StringGrida в 4 колонке по всем строкам
.Если текст edita хоть в одной из строчек в 4 колонке StringGrida совпал, то нужно выделить строку, в которой найдено значение(свойство goRowSelect в StringGrid установлено в true,
нулевая строка при загрузке stringgrida являетсятся заголовком), в столбце может быть несколько совпадений.

проблема в том,что если искомый текст из edit'a находится не на первой строке,то все работает правильно,
а если на первой он её не сравнивает cо строкой из edit

Спасибо заранее, буду признателен,с уважением dalien.

procedure TForm6.FindNext(var g:TstringGrid; s:string);
var LRow,LCol,R,C,i,j:integer;
begin
   R := g.Row;
   C:=4;
   inc( R );
          While Pos(AnsiUpperCase(s),AnsiUpperCase(g.Cells[C,R])) = 0 do
            begin
               inc( R );
               if R = g.RowCount  then
                      showmessage('столбец проверен');
                 if (R = LRow) then 
                  begin
                      ShowMessage('Ничего не нашел');
                      g.Row:=1;
                      Exit;
                  end;
             end;  
      g.Row := R;
      g.SetFocus;
   end;
//вызов процедуры
procedure TForm6.BitBtn1Click(Sender: TObject);
begin
    FindNext(form1.StringGrid2,Edit1.Text);
end;

[kinderproc]

Что-то у тебя в коде напутано, у тебя цикл while получается бесконечный, если ни одного совпадения не найдено...
А не с первой строки начинается, потому что ты inc(R) поставил в начале тела цикла, нужно в конце:

             begin
               if R = g.RowCount  then
                      showmessage('столбец проверен');
                 if (R = LRow) then 
                  begin
                      ShowMessage('Ничего не нашел');
                      g.Row:=1;
                      Exit;
                  end;
               inc( R );
             end;

[dalien]

спасибо, kinderproc сейчас буду пробовать

[dalien]

к сожалению не работает,он снова при нажатии на кнопку вперед,держит фокус на 1 строке.Что делать?