uses
  ShellAPI;

procedure TForm2.Button1Click(Sender: TObject);
begin
    TaskDialog1.Options := [doHyperlinks];
    TaskDialog1.Title := 'TaskDialog with expandable text & footer with hyperlink';
    TaskDialog1.Instruction := 'Do you like the Windows Vista TaskDialog?';
    TaskDialog1.Icon := tiQuestion;
    TaskDialog1.Content := 'The new TaskDialog provides a standard & enhanced way for interacting with the user';
    TaskDialog1.ExpandedText := 'Many new options make the TaskDialog very different from the old Windows MessageBox';
    TaskDialog1.ExpandControlText := 'Click to hide';
    TaskDialog1.CollapsControlText := 'Click to see more';
    TaskDialog1.Footer := 'Brought to Delphi by TMS software';
    TaskDialog1.FooterIcon := tfiWarning;
    TaskDialog1.Execute;
end;

procedure TForm2.TaskDialog1DialogHyperlinkClick(Sender: TObject; HRef: string);
begin
  ShellExecute(0,'open',pchar(href),nil,nil,sw_normal);
end;