CODE
procedure TForm1.Nextgrid1BeforeSelect(Sender: TObject; ACol, ARow: Integer; var Accept: Boolean);
begin
if Nextgrid1.SelectedRow = ARow then
begin
Nextgrid1.NoSelection;
Accept := False;
end;
end;
begin
if Nextgrid1.SelectedRow = ARow then
begin
Nextgrid1.NoSelection;
Accept := False;
end;
end;
My 2cents