anchor.diff:        Continue;
       end;
   
  +    //-------more?
     until false;
   end;
  +
   
   procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
     AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  
positive.code:       Continue;
      end;
  
      if SName='val' then
      begin
        if Ctl is TCheckBox then (Ctl as TCheckBox).Checked:= (SValue<>'0');
  
negative.code:           Ctl:= TButton.Create(AForm);
            (Ctl as TButton).ModalResult:= cButtonResultStart+AControlIndex;
          end;
  
        if Assigned(Ctl) then
          Ctl.Parent:= AForm;
        Continue;
  