[jhonny]

Bueno, mira si te sirve la siguiente función:

Código Delphi [-]
procedure SeleccionarTodo(DBGrid :TDBGrid);
var
  Marca :TBookmark;
begin
  with DBGrid, DBGrid.DataSource.DataSet do
  begin
    Marca := GetBookmark;
    try
      First;
      while not Eof do
      begin
        SelectedRows.CurrentRowSelected := True;
        Next;
      end;
      GotoBookmark(Marca);
    finally
      FreeBookmark(Marca);
    end;
  end;
end;

Espero que te sirva .