[sandysman]

Все здравствуйте, не могу допереть как обработать ошибку на удаление элемента в таблице, пишу так

Код:

procedure TDM.Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
Table1.Delete;
except
on E: Exception do begin
            ShowMessage ('Ошибка удаления'+E.Message);
            exit;
                    end

end;
end;

компилятор ругается на showmessage, может кто подскажет в чем проблема?