با این هم مشکل حل نشد
procedure Trepo.BitBtn1Click(Sender: TObject);

var

tar1,tar2 :string;

begin

tar1:=t1.Text;

tar2:=t2.Text;

dbq.Active:=false;

dbq.UnPrepare;

dbq.ParamByName('tar1').AsString:=tar1  ;

dbq.ParamByName('tar2').AsString:=tar2  ;

dbq.Prepare;

dbq.Active:=true;

fastrepo.ShowReport;

end;

متن اون تیکه از برنامه اینه