procedure TForm1.Button2Click(Sender: TObject);
begin // البحث بكلمة أو جزء من كلمة
if Table1.Locate('Nom',Edit1.Text,[loPartialKey]) = true then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin // سوى كانت الحروف كبيرة أوصغيرة
if not Table1.Locate('Nom',Edit1.Text,[loCaseInsensitive])then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if Table1.Locate('Nom',Edit1.Text,[]) = false then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

procedure TForm1.Button5Click(Sender: TObject);
begin // البحث برقم واسم
if Table1.Locate('Code;Nom', VarArrayOf([StrToInt(Edit1.Text), Edit2.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

procedure TForm1.Button6Click(Sender: TObject);
begin // البحث برقم وكلمتين منفصلتين
if Table1.Locate('Code;Nom;Prenom',
VarArrayOf([StrToInt(Edit1.Text), Edit2.Text, Edit3.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;