如何在delphi xe5上用代码触发网格双击右边框事件？

procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  GridRect: TGridRect;
begin
  // 检查是否是右键双击事件
  if (Button = mbRight) and (ssDouble in Shift) then
  begin
    // 获取双击的单元格
    GridRect := StringGrid1.MouseCoord(X, Y);
    
    // 检查是否在右边框上双击
    if GridRect.Top = -1 then
    begin
      // 在这里编写你的代码，处理网格双击右边框事件
      ShowMessage('双击了网格的右边框！');
    end;
  end;
end;