anchor.diff:      lblName1: TfpgLabel;
       {@VFD_HEAD_END: SplashForm}
       tmr: TfpgTimer;
  +    procedure   SplashFormClose(Sender: TObject; var CloseAction: TCloseAction);
       procedure   SplashFormShow(Sender: TObject);
       procedure   TimerFired(Sender: TObject);
       procedure   SplashFormClick(Sender: TObject);
  
positive.code:   TimerFired(nil);
  end;
  
  procedure TSplashForm.SplashFormShow(Sender: TObject);
  begin
    tmr.Enabled := True;
  
negative.code:   
    OnShow := @SplashFormShow;
    OnClick := @SplashFormClick;
    OnClose := @SplashFormClose;
  end;
  
  procedure TSplashForm.AfterCreate;
  