Проблема с Gridом

[nimf]

Помогите решить проблему! Она заключается в следующем в этой процедуре происходит сравнение всех записей с выделенной и если равны происходит выделение, однако при выборе новой записи выделения не снимаются с предыдуших! Подскажите в чем проблема?????
procedure TForm1.Button1Click(Sender: TObject);
var
str, strQ: String;
j: Integer;
begin
if (grid.SelectedCount < 1) then begin
exit;
end;
Grid.BeginUpdate;
str := Grid.Cell[Grid.SelectedColumn, Grid.SelectedRow].AsString;
for j := 0 to Grid.RowCount - 1 do
begin
strQ := Grid.Cell[Grid.SelectedColumn, j].AsString;
if (strQ = Str) and not Grid.Selected[j] then
Grid.Selected[j] := true;
end;
Grid.EndUpdate;
end;

[Квэнди]

Multiselect

[pinhead]

Кстати у меня тоже такая проблема, он мне не столь важно выделение!
Извините за то что не могу ответить!
P.s.: MultiSelect - выделяет всю строку в таблице!

[nimf]

А Как использовать MultiSelect??

[Квэнди]

св-во Multiselect, входящее в множество options позволяет выделять одновременно несколько строк.
Чтобы не было такого еффекта, отключите это св-во.

[nimf]

Сообщение от Квэнди

св-во Multiselect, входящее в множество options позволяет выделять одновременно несколько строк.
Чтобы не было такого еффекта, отключите это св-во.

У меня просто проблема с элемонтом Grid класс TNextGrid и походу там недоработка. У меня есть исходник как мне его поправить?? Пожете подсказать??