Как найти текст в строках и столбцах из StringGrid1 ключевое слово, которое мы набрали в Edit1 при нажатии на Button1?

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
 with StringGrid1 do
  for i := 0 to ColCount - 1 do
   if Cols[i].IndexOf(Edit1.Text) > -1 then
    begin
     ShowMessage(Format('Совпадение найдено в ячейке с адресом: строка - %d, столбец - %d', [Cols[i].IndexOf(Edit1.Text), i]));
     Exit;
    end;
 ShowMessage('Ничего не найдено');
end;

StringGrid1.Row := i;
StringGrid1.Col := Cols[i].IndexOf(Edit1.Text);

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
 with StringGrid1 do
  for i := 0 to ColCount - 1 do
   if Cols[i].IndexOf(Edit1.Text) > -1 then
    begin
     StringGrid1.Row := i;
    StringGrid1.Col := Cols[i].IndexOf(Edit1.Text);
     Exit;
    end;
 ShowMessage('Ничего не найдено');
end;

procedure TForm1.Button4Click(Sender: TObject);
var i: integer;
begin
 with StringGrid1 do
  for i := 0 to ColCount - 1 do
   if Cols[i].IndexOf(Edit1.Text) > -1 then
    begin
    StringGrid1.Col := i;
    StringGrid1.Row := Cols[i].IndexOf(Edit1.Text);
     Exit;
    end;
 ShowMessage('Ничего не найдено');
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i, k, l, m: integer;
begin
with StringGrid1 do
for i := 0 to ColCount - 1 do
if Cols[i].IndexOf(Edit1.Text) > -1 then
begin
StringGrid1.Col := i;
StringGrid1.Row := Cols[i].IndexOf(Edit1.Text);
m := Cols[i].IndexOf(Edit1.Text);
for k:=1 to RowCount - 1 do
if k<>m then
for l:=1 to ColCount - 1 do
Cells[l, k] := '';
Exit;
end;
ShowMessage('Ничего не найдено');
end;