[kossr]

Код:

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
CanSelect := False;
end;

Спасибо за многочисленные ответы.