stringgrid怎么获取当前点的值

stringgrid如何获取当前点的值
e.g.
鼠标指定了stringgird中的某一个cell

如何获得这个cell的信息，以便对改行进行操作

[解决办法]

Delphi(Pascal) code

procedure TForm1.StringGrid1Click(Sender: TObject);beginwith StringGrid1 do begin  Edit1.Text:=Cells[Col,Row] end;end;
[解决办法]
Delphi(Pascal) code
iCol:=StringGrid1.Col;iRow:=StringGrid1.Row;sStr:=StringGrid1.Cells[iCol,iRow];
[解决办法]
procedure Tinput.StringGrid1SelectCell(Sender: TObject; ACol,
 ARow: Integer; var CanSelect: Boolean);
var
  price,number,tax,sum:double;
  j:integer;
begin
//读取选取的当前单元的行，列值
  currentCol:=ACol;
  currentRow:=ARow;
  stringgrid1.Cells[currentCol,currentRow]:=adoquery1.FieldByName('**).AsString;
  end;