p r o c e d u r e TForm1.btnMultiSearchClick(Sender: TObject);
b e g i n
ADODataSet1.Locate('City;Country', VarArrayOf([Edit1.Text,
Edit2.Text]), [loCaseInsensitive, loPartialKey]);
e n d ;
p r o c e d u r e TForm1.btnSearchClick(Sender: TObject);
b e g i n
ADODataSet1.Locate(GetSearchField, cbSearchValue.Text,
[loCaseInsensitive, loPartialKey]);
e n d ;