TTMSFMXTaskDialog progress message

FMX TMS FMX UI Pack
5

can you give me a sample that activate the progress bar (with text evenctually) on button click (es mrOk) of taskdialog ? thx