Удаление строки по указанному значению в СтрингГриде

[DgaDga]

подскажите в чём ошибка?
при нажатии кнопки удалить ничего не проиходит
В программе нужно сделать функцию удаления по указанному значению
реализация: вписывая в Edit1 наименование продукта и нажимая кнопку удалить, строка с этим наименованием должа стать пустой
Програмно должно работать, но не работает
P.S. txt файлы в ней же

[Don Karleone]

Procedure TForm1.DeleteRecord;
var
  i,j:integer;
begin
for i := 0 to StringGrid1.RowCount - 1 do//StrToInt(Label7.Caption) do

if AnsiUpperCase(Trim(StringGrid1.Cells[0,i])) = AnsiUpperCase(Trim(Edit1.Text))
  then
    begin
      StringGrid1.Cells[0,i]:='';
      StringGrid1.Cells[1,i]:='';
      StringGrid1.Cells[2,i]:='';
      StringGrid1.Cells[3,i]:='';
      StringGrid1.Cells[4,i]:='';
    end;

end;

[Serge_Bliznykov]

вместо StringGrid1.Cells[0,i]:=''; StringGrid1.Cells[1,i]:=''; и т.д.
гораздо кузявнее очищать строку в цикле:

if AnsiUpperCase(Trim(StringGrid1.Cells[0,i])) = AnsiUpperCase(Trim(Edit1.Text))
  then
    for j:=0 to StringGrid1.ColCount - 1 do
        StringGrid1.Cells[j,i]:='';