Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Проверить, выделена ли ячейка TStringGrid

01.01.2007
function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean;
 
begin
   
Result := False;
   
try
     
if (X >= StringGrid.Selection.Left) and (X <= StringGrid.Selection.Right) and
       
(Y >= StringGrid.Selection.Top) and (Y <= StringGrid.Selection.Bottom) then
       
Result := True;
   
except
   
end;
 
end;
 
 procedure TForm1
.Button1Click(Sender: TObject);
 
begin
   
if IsCellSelected(stringgrid1, 2, 2) then
     
ShowMessage('Cell (2,2) is selected.');
 
end;

Взято с сайта: https://www.swissdelphicenter.ch