[Resolvido] Cancelar operação

Ola..tenhinha assim:

Onde no edit ta assim no Onexit:

procedure TForm1.Edit1Exit(Sender: TObject);
begin
if edit1.text = '' then
begin

showMessage('digite a nf');
edit1.setfocus;
exit;
end;
	end;

Notem que eu tou forçando o camarada a digitar A NF.

mas vamos supor que o usuario queira cancelar a operação, não queira mais continuar..CANCELAR

Teria alguma forma de cancelar esta opção, TIPO um codigo mais fort que derruge o SETFOCUS ??

Grato