anchor.diff:  
   procedure TDummyClass.DoOnShow(Sender: TObject);
   var
  +  C: TControl;
     i: integer;
   begin
     for i:= 0 to Form.ControlCount-1 do
  -    if Form.Controls[i] is TListview then
  -      with (Form.Controls[i] as TListview) 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;
  
positive.code:   List: TStringList;
    Str: string;
    NActive, i: integer;
  begin
    Result:= '';
  
  
negative.code:     }
  
      if (AFocusedIndex>=0) and (AFocusedIndex<F.ControlCount) then
      begin
        C:= F.Controls[AFocusedIndex];
        if C.Enabled then
          if C is TWinControl then
            F.ActiveControl:= C as TWinControl;
      end;
  
      Dummy.Form:= F;
      F.KeyPreview:= true;
  