anchor.diff:    TDummyClass = class
     public
       Form: TForm;
  +    procedure DoOnShow(Sender: TObject);
       procedure DoKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
       procedure DoOnChange(Sender: TObject);
       procedure DoOnSelChange(Sender: TObject; User: boolean);
  
positive.code:     Dummy.Form:= F;
      F.KeyPreview:= true;
      F.OnKeyDown:= @Dummy.DoKeyDown;
  
      Res:= F.ShowModal;
      if Res>=cButtonResultStart then
  
negative.code: 
  { TDummyClass }
  
  procedure TDummyClass.DoOnShow(Sender: TObject);
  var
    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
          if ItemFocused<>nil then
            ItemFocused.MakeVisible(false);
  end;
  
  procedure TDummyClass.DoKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
  