نقل قول از javad_rajabloo
من خودم از این کد استفاده کردم

یه دکمه جهت ذخیره اطلاعات میذاری و بعدش کد زیر:if not datamodule3.adoquery1.locate("ID",Trim(E dit1.Text),[]) then
************************* begin
************************* *** datamodule3.ADOQuery1.Post;
************************* *** form4.Close;
************************* end
********************* else
************************* begin
************************* ****** showmessage("کد* تکراري است"
******************** end;




این روش شما برای برنامه هایی که فقط در یک سیستم قرار است اجرا بشود جوابگو است...
در برنامه های چند یوزره این کار بی فایده بوده و امکان اشتباه اون خیلی زیاده ...
پس لطفا فقط از روشی که گفتم استفاده نمایید...