anchor.diff:            (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
           end;
         if SValue='radiogroup' then
  -        begin
  -          Ctl:= TRadioGroup.Create(AForm);
  -        end;
  +        Ctl:= TRadioGroup.Create(AForm);
         if SValue='checkgroup' then
  -        begin
  -          Ctl:= TCheckGroup.Create(AForm);
  -        end;
  +        Ctl:= TCheckGroup.Create(AForm);
  +      if SValue='checklistbox' then
  +        Ctl:= TCheckListBox.Create(AForm);
   
         if Assigned(Ctl) then
           Ctl.Parent:= AForm;
  
positive.code:         if Ctl is TMemo then (Ctl as TMemo).Lines.Add(SListItem);
          if Ctl is TCheckGroup then (Ctl as TCheckGroup).Items.Add(SListItem);
          if Ctl is TRadioGroup then (Ctl as TRadioGroup).Items.Add(SListItem);
        until false;
        Continue;
      end;
  
negative.code: 
  uses
    Classes, SysUtils, Graphics, Controls, StdCtrls, ExtCtrls, Forms,
    CheckLst,
    ATStringProc;
  
  procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
  