Mensagens - cancelando mensagem

// Declare a seguinte procedure no protected 

protected

  procedure WndProc(var Message: TMessage); override;

//Agora pergunte se a mensagem é a esperada 

//se passar no inherited a mensagem sera executada

procedure TEditExit.WndProc(var Message: TMessage);

begin

  if (Message.Msg = wm_KillFocus) or (Message.Msg = cm_exit) then

    if not ExecutaExit then

    Begin

      Self.SetFocus;

      Exit;

    end;

  inherited;

end;