按条件打印问题，以下是程序(80分)

以下的一段按条件打印的程序，比如选择'按单位名称打印' 则预览时就是你输入在text1
中的那个单位的成员情况，但是当选择这个按钮时出现的是一系列重复的记录（只有一条
），这是两个窗体，一个的打印窗体一个是报表窗体，有没有别的方法实现我的想法啊，
请指教！
procedure TF_dayin.SpeedButton2Click(Sender: TObject);
var
bookmark2:tbookmark;
begin

F_baobiao.table1.refresh;
with F_baobiao.table1do
try
disablecontrols;
filtered:=false;
if F_dayin.combobox2.text=then
F_baobiao.memo2.text:='单位名称='+''''+F_dayi
n.edit2.text+'''';
if F_dayin.combobox2.text='按单位编号打印' then
F_baobiao.memo2.text:='单位编
号='+''''+F_dayin.edit2.text+'''';
if F_dayin.combobox2.text='按工资年份打印' then
F_baobiao.memo2.text:='工资年
份='+''''+F_dayin.edit2.text+'''';
if F_dayin.combobox2.text='按工资月份打印' then
F_baobiao.memo2.text:='工资月
份='+''''+F_dayin.edit2.text+'''';
filter:=F_baobiao.memo2.text;
filtered:=true;
finally
enablecontrols;
if F_baobiao.table1.recordcount=0 then
begin
messagebeep(1);
if (edit2.text='') then
begin
messagebeep(1);
showmessage('您没有输入打印条件，请输入！');
end else
showmessage('没有符合此条件的记录！');
filtered:=false;
F_baobiao.table1.close;
F_baobiao.table1.open;
edit2.SetFocus;
edit2.Text:='';
end else
begin
F_baobiao.QuickRep1.preview;
bookmark2:= F_baobiao.table1.GetBookmark;
filtered:=false;
F_baobiao.table1.close;
F_baobiao.table1.open;
end;
end;

end;