begin
  with AdvAlertWindow1.AlertMessages.Add do
  begin
    Text.Text := 'This is an alert with HTML formatted text and anchor.';
    AdvAlertWindow1.Show;
  end;
end;

procedure TForm2.AdvAlertWindow1AnchorClick(Sender: TObject; Anchor: string;
  Item: TMsgCollectionItem);
begin
  AdvAlertWindow1.AlertMessages.FindItemID(item.ID).Free;
  ShowMessage('Anchor clicked');
end;

procedure TForm2.AdvAlertWindow1AnchorClick(Sender: TObject; Anchor: string;
  Item: TMsgCollectionItem);
begin
  AdvAlertWindow1.AlertWindow.Hide;
  ShowMessage('Anchor clicked');
end;