гугл выдаёт только как их получить, ничего по SET программному не гуглится.
procedure TJvDBGrid.SelectAll;
var
LBookmark: TBookmark;
begin
if MultiSelect and DataLink.Active then
begin
with DataLink.DataSet do
begin
if Bof and Eof then
Exit;
DisableControls;
try
LBookmark := GetBookmark;
try
First;
while not Eof do
begin
SelectedRows.CurrentRowSelected := True;
Next;
end;
finally
try
GotoBookmark(LBookmark);
except
end;
FreeBookmark(LBookmark);
end;
finally
EnableControls;
end;
end;
end;
end;