Dialog penceresine checkBox yerleştirmek

procedure TForm1.Button1Click(Sender: TObject) ;
var
  AMsgDialog: TForm;
  ACheckBox: TCheckBox;
begin
//Dialog Penceresini oluştur
  AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]) ;
//CheckBox yaada başka bir pencere oluştur
  ACheckBox := TCheckBox.Create(AMsgDialog) ;
  with AMsgDialog do
  try
   Caption := 'Diyalog başlığı' ;
   Height := 169;
 
   with ACheckBox do
   begin
    Parent := AMsgDialog;
    Caption := 'Bir daha sorma';
    Top := 121;
    Left := 8;
   end;
 
   if (ShowModal = ID_YES) then
   begin
    if ACheckBox.Checked then
      //CheckBox işaretliyse yapılacaklar
    else
      //CheckBox işaretli değilse yapılacaklar
 
   end;
  finally
   Free;
  end;
end;