Удалить последнюю строку в StringGrid

[qpuTuJlb]

Сделал чтобы по кнопке удалялась строка в StringGrid, но последняя строка не удаляется. Как исправить?

var
i:integer;
 begin
 for i:=1 to StringGrid1.RowCount-2 do
  begin
  if (StringGrid1.Cells[0,i]=Edit10.Text) and (Edit10.Text<>'') then
  with THackStringGrid(StringGrid1) do
  DeleteRow(i);
  end;

[Аватар]

Сделать цикл по убыванию индекса
for i:=StringGrid1.RowCount-1 downto 1 do

[qpuTuJlb]

спасибо, помогло