É possível chamar e-mail através da label no frm...

Declare a unit ShellApi na seção uses

Código:

Shellexecute(Handle,´open´,´mailto:programacaodireta@ieg.com.br´,nil,nil,sw_show);

Caso queira chamar uma URL é só colocar no lugar do email
Shellexecute(Handle,´open´,´http://www.programacaodireta.hpg.com.br´,nil,nil,sw_show);