تصفية قاعدة بيانات بعدة حقول هنا اربعة حقول

[بورمله]

السلام عليكم
ارى ان هذا القسم يشوبه بعض الخمول ولهذا اطرح على اخوانى المبتدئين هذا الكود لتصفية جدول بيانات بعدة حقول
وعلى الاساتذة ان يقوموا بتعليمنا كيفية العمل باحسن من ذالك

كود PHP:

procedure TFtdos.BitBtn4Click(Sender: TObject);
 begin
 if(edit2.Text>'')and(edit4.Text>'')and(edit3.Text>'')and (edit5.Text>'') then
  begin
 dmarchive.ABSTable1.Filter:='code_dos='+quotedstr(edit2.Text+edit4.Text+edit3.Text+edit5.Text);
 dmarchive.ABSTable1.Filtered:=true ;
end
else
 showmessage(' حدد المكان ');
 edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';

end;