كيفية التعامل مع ميزة الـMultii-Select

السلام عليكم 

يمكن تحقيق ذلك وذلك بإستخدام المتغير (TBookmarkList) وتشغيل خاصية DBGrid.Option.dgMultiSelect = True وكتبة هذه الأوامر في الحدث OnClick لأحد الأزرار التي تستخدمها لتجميع البيانات من DBGrid

Procedure Tform1.Button1Onclick(Sender:object);
var ListBookMark:TBookmarkList;
      i:integer;
begin
 ListBookMark:=DBGrid1.SelectedRows;
   if ListBookMark.Count <> 0 then
   begin
      for i:=0 to ListBookMark.Count-1 do
      begin
       ADOQuery.Bookmark:=ListBookMark;
       {Do Sumthing}
      end;
end;
end;