diff --git a/lcl/include/taskdialog.inc b/lcl/include/taskdialog.inc
index 129b97beb9..7b805a8af4 100644
--- a/lcl/include/taskdialog.inc
+++ b/lcl/include/taskdialog.inc
@@ -236,6 +236,10 @@ begin
     FRadioButton := RadioButtons[TaskDlg.RadioRes-200] as TTaskDialogRadioButtonItem
   else
     FRadioButton := nil;
+  if TaskDlg.VerifyChecked then
+    Include(FFlags, tfVerificationFlagChecked)
+  else
+    Exclude(FFlags, tfVerificationFlagChecked)
 end;
 
 procedure TCustomTaskDialog.DoOnButtonClicked(AModalResult: Integer;