[[AgustinOrtu]]

Código Delphi [-]
var
  LDataSet: TDataSet;
begin
  LDataSet := DBGrid1.DataSource.DataSet;
  try
    LDataSet.DisableControls;
    LDataSet.First;
    while not LDataSet.Eof do
    begin
      DBGrid1.SelectedRows.CurrentRowSelected := True;
      LDataSet.Next;
    end;
  finally
    LDataSet.EnableControls;
  end;