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

[Radost]

это где делается?

[pu4koff]

че там кстати за begin... end? на сколько я знаю, try except без них пишеца.
try
// код, в котором может быть ошибка
except
// произошла ошибка
end;

[Radost]

а если между try и except несколько команд, все равно без begin?

[Shuraken]

Да, все равно без begin

[Radost]

Я попробовала сделать вот так:
try
Table_dohod.Open;
Table_dohod.Edit;
Table_dohod.FieldByName('Точка').As String:=TochkaName;
Table_dohod.FieldByName('Дата').AsD ateTime:=StrToDate(newDate);
Table_dohod.FieldByName('Сумма').As Integer:=StrToInt(Sum);
Table_dohod.Post;
ShowMessage('Данные сохранены!');
Summa.Text:='';
except
On E:EDatabaseError do
begin
e.message:='Данные за указанный день по выбранной точке уже заведены!';
messageDlg(e.message, mtError,[mbOK],0);
end
end;

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

[Shuraken]

Это уже ошибка в базе, скорее всего не все constraint-ы заведены.

[pu4koff]

Действительно больше на косяки в базе похоже.
Ну а так чисто по коду:

On E:EDatabaseError do
begin
e.message:='Данные за указанный день по выбранной точке уже заведены!';
messageDlg(e.message, mtError,[mbOK],0);
end

смысла в такой организации я не вижу. Вроде проще написать вместо этого:

messageDlg('Данные за указанный день по выбранной точке уже заведены!', mtError,[mbOK],0);

[Radost]

Таблица с тремя полями:текстовое, дата, числовое. Текстовое и дата-ключевые.
Какого рода могут быть косяки?