Questo è il primo esempio che ho trovato in giro:
DBGrid1.SelectedRows.Clear;
OrdersDataSource.DataSet.First;
for i := 0 to OrdersDataSource.DataSet.RecordCount-1 do
begin
DBGrid1.SelectedRows.CurrentRowSelected := true;
OrdersDataSource.DataSet.Next;
end;
Ciao!