Selección de texto en una celda de un TStringGrid

procedure TForm1.Button1Click(Sender: TObject);
 
  // recorremos los controles hijos del Grid en búsqueda de TInplaceEdit
  function GetInPlaceEdit(ACustomGrid: TCustomGrid): TInplaceEdit;
  var
    i: integer;
  begin
    for i := 0 to ACustomGrid.ControlCount - 1 do
      if ACustomGrid.Controls[i] is TInplaceEdit then
      begin
        Result := TInplaceEdit(ACustomGrid.Controls[i]);
        Exit;
      end;
    Result := nil;
  end;
 
var
  myRect: TGridRect;
  ed: TInplaceEdit;
begin
  // selección de la celda
  myRect.Left := 1;
  myRect.Top := 2;
  myRect.Right := 1;
  myRect.Bottom := 2;
  sg.Selection := myRect;
 
  // damos el foco al Grid
  ActiveControl:= sg;
 
  // ponemos el Grid en modo de edición
  sg.EditorMode:= true;
 
  // recuperamos el editor
  ed:= GetInPlaceEdit(sg);
  // seleccionamos el texto de la celda
  if ed <> nil then
  begin
    ed.SelStart := 0;
    ed.SelLength := ed.GetTextLen;
  end;
end;