Raising exception with applyupdates

Im using Delphi 7, DBExpress, Firebird 2.1

This is my code

procedure TForm1.Button2Click(Sender: TObject);
begin
ClientDataset1.insert;
ClientDataset1.Fields[0].AsInteger := 101;
ClientDataset1.Fields[1].AsString := 'xxxx';
ClientDataset1.Post;
ClientDataset1.applyupdates(0);
showmessage('---- The end -----');
end;

procedure TForm1.ClientDataset1ReconcileError(
DataSet: TCustomClientDataSet; E: EReconcileError;
UpdateKind: TUpdateKind; var Action: TReconcileAction);
begin
raise exception.Create('error');
end;


Is ocurring a error on the applyupdates. The exception "error" is raising
but the program continues and display the message "---- The end ----". Why?
I want to handle the exception but i cant do it.

Thanks in advance

[405hp]

pascal <> php

Wrong forum, sorry.