[TolAlik]

Здрасте! В одной из тем приводили код по обработке дублирующейся записи в базе. Код ниже:

Код:

procedure TForm1.ADOTable1PostError(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction);
begin
 ShowMessage('Такое имя уже есть');
 Action := daAbort;
end;

Но этот код работает для всех исключений, которые вызывают ограничивания у таблиц.
Как нужно доработать код для обработки конкретной ошибки, а то что то я не пойму как это делать? И как их между собой различать?
Заранее спасиб.