procedure TForm1.Button1Click(Sender: TObject);
with Query1 do
 begin
  Close;
  SQL.Text := 'SELECT * FROM jabatan WHERE namajabatan = ' + QuotedStr(edNama.Text);
  Open;
  if not Eof then
   ShowMessage('Ada Nama yang sama.');
 end;
end;

@ari_volker: Kalo saya di filter aja primary key datanya,, misal : di filter terus ada datanya langsung keluar message "Maaf data sudah ada" berarti duplicate,, Tapi pas di filter datanya kosong,,nah,, baru bisa di insert.. "AKAL-AKALan saya aja si,,"