procedure SetGridFocus(SGrid: TStringGrid; r, c: integer);
var
 SRect: TGridRect;
begin
 with SGrid do
 begin
  SetFocus; {Передаем фокус сетке}
  Row := r; {Устанавливаем Row/Col}
  Col := c;
  SRect. := r; {Определяем выбранную область}
  SRect.Left := c;
  SRect.Bottom := r;
  SRect.Right := c;
  Selection := SRect; {Устанавливаем выбор}
 end;
end;

//Для вызова процедуры:

SetGridFocus(StringGrid1, 10, 2);