مقدار دهي كامپوننت هاي گزارش در زمان دلخواه

[سوگند رها]

با سلام
ميخواهم تعدادي ركورد را كه در جدولم داري اطلاعات خاص هستند را چاپ نمايم
براي اينكار فيلتري براي جدولم طراحي نمودم و گفته ام تا هنگامي كه به پايان جدول نرسيده اي ركورد هايي كه در شرط قرار مي گيرند را چاپ كن
تمام مراحل جستجو در جدول و پيدا نمودن ركورد ها را بخوبي انجام مي دهد تنها هنگامي كه كامپوننت هايي گزارش را به مقادير ركوردها اختصاص مي دهم در گزارش تنها اطلاعات آخرين ركورد را نمايش مي دهد و نه تمام ركورد هاي كشف شده ؟؟؟؟؟
در ضمن براي گزارشگيري از ابزار qreport استفاده نموده ام

اين هم قسمتي از برنامه كه مي خواهد گزارش را چاپ كند
QuickRep1.DataSet:= table1
Table1.Filtered:=true;
Table1.Filter:='datfile='+ datee +'and city='+ city;
Table1.Open;

QRDBText1.DataSet:=Table1 ;
QRDBText1.DataField:=city;
Table1.FindFirst;
cou:=Table1.RecordCount;
if Table1.RecordCount<>0 then
begin
while ii<=cou do
begin

mony:= Table1.FieldValues['mony'] + mony;
QRLabel6.Caption:= FloatToStr(mony);
ii:=ii+1;
Table1.FindNext;
end;
QuickRep1.Prepare;
QuickRep1.Preview ;