como usar escape
 

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

En formularios modales, puedes poner en el botón cancelar/salir la propiedad Cancel := True, esto producirá que cuando el usuario pulse ESCape, se cierre con ModalResult = mrCancel. Para hacer la famosa pregunta, puedes utilizar el evento del mismo botón, o el OnCloseQuery del TForm.

Saludos!