الفلترة باكثر من خيار - نسخة قابلة للطباعة

كود :

procedure Tfrmmain.SpeedButton1Click(Sender: TObject);
var
ch1,ch2,ch3:Boolean;
a,b,c,ab,ac,bc,abc:string;
begin
ch1:=checkbox1.Checked;
ch2:=checkbox2.Checked;
ch3:=checkbox.Checked;
a:='codofperson ='+QuotedStr(edtgiab1.Text);
b:='themonth ='+QuotedStr(cobgiab1.Text);
c:='theyeare ='+QuotedStr(cobgiab2.Text);
ab:='codofperson ='+QuotedStr(edtgiab1.Text)+'and themonth ='+QuotedStr(cobgiab1.Text);
ac:='codofperson ='+QuotedStr(edtgiab1.Text)+'and theyeare ='+QuotedStr(cobgiab2.Text);
bc:='themonth ='+QuotedStr(edtgiab1.Text)+'and theyeare ='+QuotedStr(cobgiab2.Text);
abc:='codofperson ='+QuotedStr(edtgiab1.Text)+'and themonth ='+QuotedStr(cobgiab1.Text)+
'and theyeare ='+QuotedStr(cobgiab2.Text);
if ch1=true and ch2=true and ch3=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=abc;
end;
if ch1=true and ch2=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=ab;
end;
if ch1=true and ch3=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=ac;
end;
if ch2=true and ch3=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=bc;
end;
if ch1=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=a;
end;
if  ch2=true  then
begin
tabel1.Filtered:=true;
tabel1.Filter:=b;
end;
if ch3=true then
begin
tabel1.Filtered:=true;
tabel1.Filter:=c;
end;
if tabel1.IsEmpty then
begin
  tabel1.Filtered:=false;
  ShowMessage('لم يتم العثور على نتيجة');
end;

end;

كود :

var
 a,b,c,fl:string;
begin
 fl:='';
 a:='(codofperson='+QuotedStr(edtgiab1.Text)+')';
 b:='(themonth='+QuotedStr(cobgiab1.Text)+')';
 c:='(theyeare='+QuotedStr(cobgiab2.Text)+')';

 if CheckBox1.Checked then fl:=fl+a;

 if CheckBox2.Checked then begin
      if fl<>'' then fl:=fl+' and ';
      fl:=fl+b;
    end;

 if CheckBox3.Checked then Begin
      if fl<>'' then fl:=fl+' and ';
      fl:=fl+c;
    end;

 if fl<>'' then tabel1.Filter:=fl;
 tabel1.Filtered:=fl<>'';
 if tabel1.IsEmpty then showmessage('لم يتم العثور على نتيجة');