Nun... mit dieser Prozedur werden alle Datensätze in einem Grid markiert, denn sollte man für deine Zwecke anpassen können
Delphi-Quellcode:
procedure DBGridSelectAll(AGrid: TDBGrid) ;
begin
AGrid.SelectedRows.Clear;
with AGrid.DataSource.DataSet do
begin
First;
while not EOF do
begin
AGrid.SelectedRows.CurrentRowSelected := True;
Next;
end;
end;
end;