[Decoding]

Код:

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
   Label1.Font.Color := clBlue;
   Label1.Font.Style := Label1.Font.Style + [fsUnderline];
   Label1.Cursor := crHandPoint;
end;
 
procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
   Label1.Font.Color := clBlack;
   Label1.Font.Style := Label1.Font.Style - [fsUnderline];
   Label1.Cursor := crDefault;
end;