Me alegra que te haya servido amiguito

.
Solo una cosita en vez de asiganar a tus variables x y y, puedes utilizar directamente aRow y aCol.
Código Delphi
[-]
............
StringGrid1.Col := aCol;
StringGrid1.Row := aRow;
ValorCasilla.Caption:= StringGrid1.Cells[aCol, aRow];
end;
..........
Saluditos