Не работает try except!!!

[Radost]

Добрового всем времени суток! Помогите, пожалуйста! Подскажите, где я не права.
Есть БД-Access, пишу приложение к ней. Мне нужно в таблицу с одним ключевым полем(nam) вставить новую строку. Делаю следующим образом:ставлю кнопку "новая строка". Для нее определяю процедуру:
Table1.Open;
Table1.Edit;
Table1.Insert;
Далее вводим данные и нажимаем на кнопку "Сохранить":
try
Table1.Post;
except
On E:EDatabaseError do
if E.message='Key violation' then MessageDlg('Такая точка уже существует!',mtError,[mbOk],0);
end;
Но при выполнении программы в except даже не заходит, а вылетает и выдает свое сообщение с тем же смыслом.
Где ошибка?

[А. Долматов]

Насколько мне известно в try записывается, то что мы хотим проверить, т.е. try необходимо написать перед Table1.insert

[Radost]

А что не правильно в следующей конструкции:
try
QueryIns.SQL.Clear;
QueryIns.SQL.Add('INSERT INTO доход(Точка,Дата,Сумма) ');
QueryIns.SQL.Add('VALUES ("'+TochkaName+'",#'+newDate+'#,'+S um+')');
QueryIns.ExecSQL;
ShowMessage('Данные сохранены!');
Summa.Text:='';
except
On e : EADOError do
if E.message='Key violation' then
MessageDlg('Такая точка уже существует!',mtError,[mbOk],0);
end;

[pu4koff]

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

[Radost]

Вот в этом случае все проходит, и при F9, и если просо запустить 'exe':

try
begin
Table1.Post;
ShowMessage('Данные о точке '+DBEdit13.Text+' записаны');
DBEdit13.Visible:=false;
ComboToch.ListSource.DataSet.Active :=false;
ComboToch.ListSource.DataSet.Active :=true;
ComboToch.Visible:=true;
Form2.ActiveControl:=Form2.ComboToc h;
end
except
On E:EDatabaseError do
begin
e.message:='Такая точка уже существует!';
messageDlg(e.message, mtError,[mbOK],0);
end
end;

А вот здесь вылетает и на F9, и если просто запустить:
try
begin
QueryIns.SQL.Clear;
QueryIns.SQL.Add('INSERT INTO доход(Точка,Дата,Сумма) ');
QueryIns.SQL.Add('VALUES ("'+TochkaName+'",#'+newDate+'#,'+S um+')');
QueryIns.ExecSQL;
end
except
On E:EDatabaseError do
begin
e.message:='Такая точка уже существует!';
messageDlg(e.message, mtError,[mbOK],0);
end
end;

В чем разница???

[pu4koff]

ну видимо у тебя в QueryIns.ExecSQL; возникает ошибка...

[Radost]

Ругается именно на нарушение уникальности. То есть, если запись новая, то запрос работает.

[pu4koff]

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

[Radost]

В таблице всего 3 поля, 2 из них ключевые. Ввожу новую строку-все нормально, ту же самую - вылетает. Это, крнечно, понятно, но мне же надо, чтоб красиво обрабатывалось, чтоб пользователю нормальное сообщение выдавалось.

[А. Долматов]

попробуй компилятор отключить