StringGrid issue in Delphi XE8 firemonkey mobile app -

i'm using delphi xe8 developing mobile application , i'm facing of problem in tstringgrid.

1. i have written following code in stringgridselectcell event.

showmessage(stringgrid.cells[0, arow]);

and shows proper value of selected row @ first time. when have tried click again selected row, event not getting fired. , cant able unselect particular row.

2. so, have tried write message in onclick event.

   var irowind: integer; begin irowind := stringgrid1.selected; showmessage(stringgrid.cells[0, irowind]); end;

and not working @ first time of click , when clicked second time works properly. issue in android mobile , not in windows.

3. later, have kept both event code , faced issue. when i'm scrolling grid, firing onclick event. so, displaying selected row value.

please provide me solution. , in advance.

let's onclick event:

procedure tfmmain.stringgrid1click(sender: tobject); begin   caption := 'selected row id: ' + stringgrid1.selected.tostring + '. selected column id: ' + stringgrid1.columnindex.tostring + '. action at: ' + datetimetostr(now); end; 

property tstringgrid.selected return row id (starting zero)

and

property tstringgrid.columnindex return column id (starting zero)