Повторяющиеся значения в БД.

[cpGrey]

Здравствуйте, уважаемые.

Есть небольшая база данных MS Access и простенькая прога на Delphi 7.
В ней таблица ADOTable через ADOConnection соединяется
с базой данных MS Access (mdb). Первое поле индексированное (повторения не допускаются),
остальные по-умолчанию. Все прекрасно работает: добавление записи в таблицу, редактирование,
удаление и т.п. Но при добавлении записи, уже существующей в таблице, естественно, вылетает
ошибка. Добавление делаю прямо в таблице.
Как обработать исключительную ситуацию так, чтобы показать "Showmessage" пользователю,
что "...такая запись, мол, уже есть в таблице...", пользователь жмет OK, и курсор перемещается
на существующую запись в таблице, выделяя ее?
Что-то с этими Locate-ами и Lookup-ами я уже запарился, не получается как хотелось бы.
Выручайте, пацаны.
Заранее всем спасибо.
Grey.

[Yurk@]

Можно попробывать так:

try
Table.Post;
Except
ShowMessage('Такая запись уже есть в БД');
  with Table do
  begin
  SetKey;
  FieldByName('FAMILY').AsString:=Edit1.Text;
  GoToKey;
  end;
end;

[cpGrey]

В том-то и дело, что нет никаких EDIT-ов!
Ты добавляешь запись прямо в таблице и она переходит в состояние
вставки или редактирования. Вызвав Locate (Lookup), если я не ошибаюсь, курсор уходит с новой записи и , похоже, пытается постить новую запись, а запись то - повторяющаяся! И первой обрабатывает ошибку база данных MS Access. Может я заблуждаюсь?
Поправьте, спецы.

[mihali4]

Например:

var tmp: string;
...
tmp:=Table.FieldByName('FAMILY').AsString;
try   
Table.Post;   
Except   
ShowMessage('Такая запись уже есть в БД');   
  with Table do   
  begin   
  SetKey;   
  FieldByName('FAMILY').AsString:=tmp;   
  GoToKey;   
  end;   
end;

или Locate по этому же ТМР...

[cpGrey]

Короче, сам все сделал.
Прекрасно работает...
Всем спасибо за советы.