anchor.diff:    List: TStringList;
     Str: string;
     NActive, i: integer;
  +  C: TControl;
   begin
     Result:= '';
   
  
positive.code:     }
  
      if (AFocusedIndex>=0) and (AFocusedIndex<F.ControlCount) then
        if F.Controls[AFocusedIndex].Enabled then
          if F.Controls[AFocusedIndex] is TWinControl then
            F.ActiveControl:= F.Controls[AFocusedIndex] as TWinControl;
  
      Dummy.Form:= F;
      F.KeyPreview:= true;
  
negative.code: 
  
  procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
    const AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  var
    F: TForm;
    Res, i: integer;
    Dummy: TDummyClass;
    List: TStringList;
    C: TControl;
  begin
    AButtonIndex:= -1;
    AStateText:= '';
  