کار نکردن پروسیجر Locate در QR

[بمب منطقی]

من با دستورات زیر سعی دارم یک رکورد رو به QuickReport بشناسونم تا فیلدهای اونو چاپ کنه. ولی عوض اینکه رکورد مشخص شده رو بر فرض Preview کنه رکورد اول رو Preview میکنه(در QR.Preview):
من روی فرم QR یک QRBand دارم از نوع TItle و یک SubDetail هم دارم که روش بر فرض 4-5 تا QRDBtext دارم که اونا رو هم با بعضی فیلدهای جدولم ست کردم. DataSet هم QRRep و هم QRSubDetail برابر ADOTable .
حالا اگه میشه منو تو تکه کد زیر راهنمایی کنید:

procedure TForm1.Button1Click(Sender: TObject);

begin

Quickreport2.Dataset.open;

QuickReport2.DataSet.Locate('Melk_ID;Block_ID;  Mantaghe_ID',vararrayof(['123','123','123'  ]),

[loPartialKey]);

Quickreport2.Preview;

end;

با تشکر فراوان :flower: :flower: