Запрограммировать кнопку поиск

[ИвановБ]

var i:integer;
begin
if Edit5.Text='' then begin showmessage('Введите строку для поиска');exit;end;
for i:=1 to N do
begin
if StringGrid1.Cells[1,i]=Edit5.Text
then
begin
Edit1.Text:=stringgrid1.Cells[0,i];
Edit2.Text:=stringgrid1.Cells[1,i];
Edit3.Text:=stringgrid1.Cells[2,i];
Edit4.Text:=stringgrid1.Cells[3,i];
end;
end;
if stringgrid1.Cells[1,i]='' then Showmessage('Ничего не найдено');
end;

Вот поправил ткст под себя, но выскакивает постоянно ошибка ('Ничего не найдено') даже если данные есть, как исправить?

[Serge_Bliznykov]

var i,j:integer;
  naideno : boolean;
begin
  if Edit5.Text='' then begin showmessage('Введите строку для поиска');exit;end;
  naideno := false;
  for i:=1 to N do begin
      if StringGrid1.Cells[1,i]=Edit5.Text then begin
          Edit1.Text:=stringgrid1.Cells[0,i];
          Edit2.Text:=stringgrid1.Cells[1,i];
          Edit3.Text:=stringgrid1.Cells[2,i];
          Edit4.Text:=stringgrid1.Cells[3,i];
          naideno := true;
          Break;
      end;
  end;
  if not naideno then Showmessage('Ничего не найдено');
end;

[ИвановБ]

Спасибо!