como usar escape

[maruenda]

buenas y felices fiestas a todos. bueno, ahi va la pregunta.
tengo un form, y veo los datos de un cliente. hago modificaciones y quiero que al pulsar la tecla escape me salga un mensaje que me avise que puedo salir sin grabar o seguir donde estoy. uso el siguiente codigo
formkeydown( .... )
begin
case key of
vk_add : // inserto nuevo registro. funciona bien
vk _ escape: begin
key:=0;
// botoncancelar.click - este fue un primer intento
perform(cm_dialogkey,vk_escape,0);
end;
vk_return:begin
key:=0;
perform(cm_dialogkey,vk_tab,0) / esto funciona bien
end;
end;
el problema es que al pulsar escape, las modificaciones me las borra. por lo visto la pulsacion de escape llega al dbedit. como lo arreglo? muchas gracias