begin

   if (Not DM.Temploye.Locate('Matrecul',DBMat.Text,[locaseinsensitive,lopartialkey])) then

         begin

           DM.Temploye.post;

            MessageDlg('  لقد تمت اضافة ملف عامــل بكل نجاح  ', mtCustom,[mbYes],0);

           exit

         end

        else

         begin

          MessageDlg('الرقم الذي الذي ادخلته مسجل من قبل '+ #13+ DBMat.Text ,mtError,[mbYes],0);

          exit ;

         end;

end;