Aktion in Query auf mehrere Markierte Sätze anwenden?

[shmia]

Delphi-Quellcode:

for i := 0 to grid.SelectedRows.Count-1 do   // Schleife über alle selektierte Datensätze
begin
  Query.GotoBookmark(TBookMark(grid.SelectedRows[i]));   // auf Datensatz positionieren
  // mit aktuellem Datensatz etwas tun
  ShowMessage(Query['EinFeld']);
end;
grid.SelectedRows.Clear;  // Selektion entfernen