cancelar post??

[ebeltete]

Hola a todos, tengo un tquery en Delphi 5 Tablas Paradox, antes de modificar un registro quiero consultar al usuario si realmente quiere modificarlo he hecho lo siguiente, en el evento beforepost del query:

procedure TF_OPTIMONEY.QRY_CLIENTES1BeforePost(DataSet: TDataSet);
begin
IF MESSAGEDLG ('¿Quiere cambiar los datos?',mtwarning,[mbYes,mbNo],0)=mrno then
QRY_CLIENTES1.cancel;
end;

El tema es que cuando le doy no me aparece el mensaje "keyviolation", que estoy haciendo mal?