关于Tstringgrid的问题[悬赏100分]

Question

当Tstringgrid的gorangeselect属性设置为真的时候Tstringgrid支持类似excel的鼠标拖拽或者按住shift键实现多行多列选取，那么怎样获得所选区域的行列信息呢？我想做类似excel的复制粘贴操作，怎么做呢？我是初学者，不要取笑哦

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  myRect: TGridRect;
  var i,j: integer;
  S : String;
begin
  MyRect := StringGrid.Selection;
  //  myRect.Left : 起始列;
  //  myRect.Top : 起始行;
  //  myRect.Right : 终止列;
  //  myRect.Bottom : 终止行;
  for i := rect.left to rect.right do
    for j := rect.top to myrect.bottom do
    begin
      S := Cells[i,j];
       //想干什么就干  
    end;
end;

Answer 2

应该是 S:= StringGrid.cells[i,j]  随手写错了。