DBGrid alle Datensätze makieren

[Salomon]

Hi,
kennt ihr einen perfomanten Code der mir alle Datensätze in einem DBGrid selektiert? Zur Zeit verwende ich den Code unten, der allerdings bei nur 2500 Datensätzen merklich Zeit braucht. Das muss doch auch schneller gehen...

Delphi-Quellcode:

  Screen.Cursor := crArrow;
  DM_ProjectPoint.QRY_All.DisableControls;
  DM_ProjectPoint.QRY_All.First;
  while not DM_ProjectPoint.QRY_All.Eof do
  begin
    DBGrid.SelectedRows.CurrentRowSelected := CheckBox1.Checked;
    DM_ProjectPoint.QRY_All.Next;
  end;
  DM_ProjectPoint.QRY_All.First;
  DM_ProjectPoint.QRY_All.EnableControls;
  Screen.Cursor := crDefault;

LG
Marcus