reponde se puder - Delphi7

[delevedove49 0]

Veja, eu quero que ao clicar no meu check box , ele execute essa função:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Porém qnd ele n poder executar esta função, apenas apareça uma mensagem de erro ...

[Inoxybel 51]

if (puder executar a função) then

begin

ExecutarFunção();

end

else

MensagemDeErro();