¿Cómo seleccionar todos los registros de una tabla?

[AlexM]

Se que en options de los dbgrids está la opción multiselect que te permite seleccionar todos los registros manualmente en el dbgrid, pero necesito que cuando le de a un botón automáticamente todos los registros del dbgrid se seleccionen.

¿Cómo sería el código?

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