anchor.diff:      Dummy.Form:= F;
       F.KeyPreview:= true;
       F.OnKeyDown:= @Dummy.DoKeyDown;
  +    F.OnShow:= @Dummy.DoOnShow;
   
       Res:= F.ShowModal;
       if Res>=cButtonResultStart then
  
positive.code: 
  { TDummyClass }
  
  procedure TDummyClass.DoKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  begin
  
negative.code:   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);
  