Como criar um link em um label?

Nas versões mais recentes do Delphi já existe o componente TLinkLabel, que
pode ser utilizado para links. Porém em versões mais antigas, como o
Delphi 7, por exemplo, não há este componente.

Nesta dica será visto como montar um Link na internet em um Label comum.

Este efeito cria a aparência de um link da web.
No evento OnMouseMove do label, deixe conforme o exemplo abaixo:

1
2
3
4
5
6
7

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  TLabel(Sender).Font.Color := clBlue;
  TLabel(Sender).Font.Style := [fsUnderline];
  Cursor := crHandPoint;
end;

Este efeito faz o label voltar ao normal.
No evento OnMouseLeave do label, deixe conforme o exemplo abaixo:

1
2
3
4
5
6

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  TLabel(Sender).Font.Color := clBlack;
  TLabel(Sender).Font.Style := [];
  Cursor := crDefault;
end;

Este código faz abrir o navegador padrão e navegar para o site informado.
No evento OnClick do label, deixe conforme o exemplo abaixo:

1
2
3
4
5

procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', TLabel(Sender).Caption,
    nil, nil, 0);
end;

O Código é compatível com qualquer versão do Delphi.

Dúvidas ou sugestões deixe nos comentários do post.