Paradox вставка записи Append

[начинающий1]

Доброго времени суток.

Как отменить вставку записи, при неудачной попытке?
Например:
в таблице есть несколько полей с типом NOT NULL, несколько полей типа NULL и одно ключевое автоинкриментное.
таблицу отображаем в DBGridEh и редактируем ее непосредственно через грид. Так вот при вставке новой записи, если не заполнено поле с типом
NOT NULL естественно наблюдается ошибка.
Чтобы ее небыло в обработчике событий BeforePost пытаюсь проверять поле на введенные данные.

Table1.BeforePost
Table1.FieldByName('Data').AsDateTime := Now;
if Table1.FieldByName('POLE1').AsString = '' then
begin
ShowMessage('бла-бла-бла');
Table1.Cancel;
end;

Так вот, после бла-бла-бла в таблицу почему-то вставляется запись, но интересно, что эта запись(вставку которой я пытался отменить) дублирует последнюю запись, которая была до ее вставки. Получается 2 идентичные записи в конце таблицы, отличающиеся только полем ID, которое увеличивается на 1(как и должно быть).
Заранее спасибо!

[Yurk@]

try
Table1.Post;
Except
Table1.Cancel;
ShowMessage('Ошибка сохранения записи');
end;

[начинающий1]

Сообщение от Yurk@

try
Table1.Post;
Except
Table1.Cancel;
ShowMessage('Ошибка сохранения записи');
end;

В обработчике событий Table1.BeforePost этот код не работает. Ошибка переполнения стека.

[Andrei]

procedure TForm1.MyDataBeforePost(DataSet: TDataSet);
begin
Table1.FieldByName('Data').AsDateTime := Now;
if Table1.FieldByName('POLE1').AsString = '' then
begin
ShowMessage('бла-бла-бла');
Abort;
end;
end;