[diali]

الحل هو:
procedure TForm1.Button1Click(Sender: TObject);
var s1,s2,s3:string;
begin
table1.open;
s1:='Code='+quotedstr(edit1.text);
s2:='Nom='+quotedstr(edit2.text);
s3:='Prenom='+quotedstr(edit3.text);
table1.filter:=trim(s1)+' and '+ trim(s2)+' and '+trim(s3);
table1.filtered:=true;
if table1.Eof then
begin
Showmessagebox('Not Fond');
edit1.SetFocus ;
exit;
end;