Para seleccionar todos los registros de un DBGrid: en un formulario pondremos un DBGrid, DataSource, un Table y un Button. En el evento Click del botón pondremos:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  with Table1 do 
  begin
    First;
    while not EOF do 
    begin
      Dbgrid1.SelectedRows.CurrentRowSelected := True;   
      next;
    end
  end;
end;

Publicado el: 2003-09-27