Поиск дубликатов и запрет их внесения при добавлении новой записи.

procedure form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin
     if form1.Edit1.Text = SQLExecute ('SELECT поле FROM таблица WHERE поле = '''+form1.Edit1.Text+'''') then
     showmessage('Такое значение уже существует') else
         begin
         SQLExecute('INSERT INTO таблица (поле) VALUES  ('''+form1.Edit1.Text+''')');
         end;
     UpdateDatabase('таблица');
end;

Если значение вносится с помощью действия "Сохранить запись" то можно на кнопку сохранения повесить событие OnClick, где выбрать все записи и пристрелить последнюю.

procedure form1_btAddRecord_OnClick (Sender: string; var Cancel: boolean);
begin
SQLExecute('DELETE FROM таблица WHERE таблица.поле = ''' + form1.Edit1.Text + ''' AND таблица.id > (SELECT MIN(id) FROM таблица)') ;
end;

Но первый метод, ИМХО, более правильный

посмотрите тут http://myvisualdatabase.com/forum/viewtopic.php?id=1062

Я её использую, чтобы вновь введённое значение сразу же появилось для выбора в комбобоксах.
В противном случае иногда приходится перезапускать программу.
А по поводу begin'а - у вас описана процедура, но нет главной программы.
А она, пусть и пустая, должна быть.

procedure бла-бла-бла;
begin
тело процедуры
end;

begin
end.

проверка по "чертеж изделия"
изменил название полей, не очень хорошо ставить пробел в названия полей