Проблема с TNextGrid

[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;