Stringgrid выделение ячейки

[HolloOw]

Ох приветик ребята помогите сделать выделение ячеек найденных элементов, а то у меня только сейчас выделяется целая строка где найден элемент
ну срочно =3 пожалуйста (исправьте код)
procedure TForm1.button16Click(Sender: TObject);
var
b:boolean;
m,k,i:integer;
gridr:tgridrect;
maska:string;
begin
case rg1.ItemIndex of
0:begin
b:=false;
m:=0;
maska:=trim(edt1.text);
with stringgrid do
begin
I:=0;
m:=0;
repeat
inc(i);
if pos (maska,cells[2,i])=1 then
begin
b:=true;
k:=i;
inc(m);
end;
until (i=rowcount-1);
end;
gridr.left:=0;
gridr.Top:=k-m+1;
gridr.Right:=stringgrid.colcount-1;
gridr.Bottom:=k;
stringgrid.selection:=gridr;
end;

[phomm]

gridr.left:=0; - сюда поставить индекс нужной ячейки
gridr.Right:=stringgrid.colcount-1; - сюда его же

и будет именно нужная ячейка выделяться. Какой конкретно индекс надо ставить - я понятия не имею, ибо задачу и код, которым её решают, только телепату под силу понять
И используйте кнопку оформления кода #