DELPHI:вопросик по поводу запрета на внесение повторных данных в таблицу БД

[koudelka]

привет, ребят. Есть вопросик по поводу запрета на внесение повторных данных в таблицу БД (Delphi, DBGrid) в режиме редактирования записи.
Код, представленный ниже, полностью рабочий, однако у меня он работает как надо только для ДОБАВЛЕНИЯ ЗАПИСИ, для РЕДАКТИРОВАНИЯ уже существующей записи он работает неправильно, т.к. он проверяет методом locate на дубликат записи, ВКЛЮЧАЯ ТЕКУЩУЮ,КОТОРУЮ МЫ В ДАННЫЙ МОМЕНТ РЕДАКТИРУЕМ, чего быть не должно! Как этого избежать? то есть ИСКЛЮЧИТЬ ИЗ ПОИСКА Locate ТЕКУЩУЮ запись, которую мы редактируем в данный момент?!

procedure TForm1.BitBtnSAVECHANGESClick(Sender: TObject); 
var LocOpts:TLocateOptions;
    LocFields: String;
    LocValues: Variant;
begin                                                         
IF (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') then ShowMessage('There is an empty field! please check!')  {предупреждение о пустых полях}     
ELSE begin
{проверка на дубликат записи, вот тут и нужно исключить проверку по текущей записи,чтобы проверял только остальные записи в таблице, а эту редактируемую не трогал}
IF   (DataModule2.Table6.Locate('Ylica_N_doma' ,  Edit2.Text , LocOpts)=True) or {ID  я не включаю, т.к. оно у меня под запретом редактирования}
(DataModule2.Table6.Locate('Pochtovii_index' ,  Edit3.Text , LocOpts)=True) 
THEN  ShowMessage('Duplicate record or ID is found. Please check and try again!')
ELSE begin
DataModule2.Table6.Edit;
DataModule2.Table6.FieldByName('ID_Ylici').AsString:=Edit1.Text;
DataModule2.Table6.FieldByName('Ylica_N_doma').AsString:=Edit2.Text;
DataModule2.Table6.FieldByName('Pochtovii_index').AsString:=Edit3.Text;
DataModule2.Table6.Post;
Edit1.Clear; Edit2.Clear; Edit3.Clear;
end;end;end;end;end;

[evg_m]

если мы собираемся менять ключевое поле(поля), то проверять надо новый ключ (которого быть не должно).
а если не собираемся менять, то и проверять не зачем. (ведь он уже есть и проверен при его вводе)

if newkey<>oldkey then ok:=locate(..., newkey,... ) else ok:=true;

проверка ключа только при его изменении(добавление нового ключа).

[koudelka]

Сообщение от evg_m

проверка ключа только при его изменении(добавление нового ключа).

можно поподробнее?
newkey<>oldkey
не распознает обоих, да и я не совсем понимаю какое значение ( судя по моему коду ) нужно задать этим переменным ...
как интегрировать вашу подсказку в код - не ясно.