anchor.diff:      NActive:= -1;
       for i:= 0 to AForm.ControlCount-1 do
       begin
  -      if AForm.Controls[i]=AForm.ActiveControl then
  -        NActive:= i;
  -
  -      List.Add(DoGetControlState(AForm.Controls[i]));
  +      C:= AForm.Controls[i];
  +      if C=AForm.ActiveControl then NActive:= i;
  +      List.Add(DoGetControlState(C));
       end;
   
       //append NActive
  
positive.code:   List: TStringList;
    Str: string;
    NActive, i: integer;
  begin
    Result:= '';
  
  
negative.code:   ATColorPanel;
  
  procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
    const AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  
  function IsDialogCustomShown: boolean;
  function DoDialogCustomGetControlHeight(const Id: string): integer;
  