поиск в StringGrid ...

[Kos123]

Доброго времени суток!!!
Помогите пожалуйста разобраться. Осуществляю поиск в двух StringGrid.
StringGrid1 - колонка1 - шаблон артикулов. Во втором гриде колонка артикулов соответствует шаблону, а в третьем гриде похожи только первые три артикула - остальные или разбросаны, или отсутствуют. Если не использовать break то цикл не останавливается, а если исползовать то находит только первые три и все.

procedure TForm2.SpeedButton14Click(Sender: TObject);
var
i, ipM, s1, s2 : integer;
begin
s1 := RzStringGrid4.RowCount;
s2 := RzStringGrid5.RowCount;
for ipM := 1 to s1 do
begin
Edit5.Text := RzStringGrid7.Cells[1, ipM];
for i:=1 to s2 do
begin
{артикул найден}
if RzStringGrid5.Cells[2, ipM] <> Edit5.Text then
begin
RzStringGrid7.Cells[2, ipM] := RzStringGrid5.Cells[2, ipM];
Edit5.Text := RzStringGrid7.Cells[1, ipM+1];
end
{артикул НЕ найден}
else
RzStringGrid7.Cells[2, ipM] := '';
Edit5.Text := RzStringGrid7.Cells[1, ipM+1];
break;
end;
end;
end;