anchor.diff:  
   
   procedure DoDialogCustom(const ATitle: string; ASizeX, ASizeY: integer;
  -  AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
  +  const AText: string; AFocusedIndex: integer; out AButtonIndex: integer; out AStateText: string);
   var
     F: TForm;
     Res, i: integer;
  -  SItem: string;
     Dummy: TDummyClass;
     List: TStringList;
  +  C: TControl;
   begin
     AButtonIndex:= -1;
     AStateText:= '';
  
positive.code:   List: TStringList;
    Str: string;
    NActive, i: integer;
  begin
    Result:= '';
  
  
negative.code: 
  procedure TDummyClass.DoOnShow(Sender: TObject);
  var
    C: TControl;
    i: integer;
  begin
    for i:= 0 to Form.ControlCount-1 do
    begin
      C:= Form.Controls[i];
      if C is TListview then
        with (C as TListview) do
          if ItemFocused<>nil then
            ItemFocused.MakeVisible(false);
    end;
  end;
  
  procedure TDummyClass.DoKeyDown(Sender: TObject; var Key: Word;
  