----- کردن جدول براساس شماره رکوردها

سلام
من برای یک نوشتن یک پروژه با مشکل زیر مواجه شدم ممنون می شم اگه کسی بتونه برام حل کنه فقط یه خرده فوریت داره
من شماره رکوردهای موردنظرم را با دستور RecNo داخل یک آرایه ریختم حالا نمی دونم چطوری براساس شماره رکوردها جدولم را ----- کنم. ممنون می شم اگه کمک کنید.:40:

البته من بعد از ارسال سوال متوجه شده کلمه فیلر را ..... گذاشته که برای راهنمایی دوستان عرض می کنم

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var
  x: Integer;
  BMList: array of TVarRec;
begin
  SetLength(BMList, DBGrid1.SelectedRows.Count);
  for x:=0 to DBGrid1.SelectedRows.Count - 1 do
  begin
    BMList[x].VType := vtPointer;
    BMList[x].VPointer := Pointer(DBGrid1.SelectedRows[x]);
    ADOTable1.GotoBookMark(BMList[x].VPointer);
  end;
  ADOTable1.FilterOnBookmarks(BMList);
end;

---

این کدی که نوشتم رکوردهایی رو که انتخاب شده، ----- می کنه.

اون قطعه برنامه ای رو که در پست 3 نوشته شده رو اجرا کردم ولی چرا پیغام زیر رو می نویسه و برنامه اجرا نمی شه


[Warning] Unit21.pas(203): For loop control variable must be simple local variable