Title: check if a Stringgrid cell is selected?
function IsCellSelected(StringGrid: TStringGrid; X, Y: Longint): Boolean;
begin
Result := False;
try
if (X = StringGrid.Selection.Left) and (X and
(Y = StringGrid.Selection.Top) and (Y 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;