{
OnSelectCell example
The following code ensures that the user cannot select a cell unless it is empty.
} 
procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Longint; var CanSelect: Boolean);
begin
  CanSelect := (StringGrid1.Cells[Col,Row]='')
end; 
