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: begin
    tmr.Enabled := False;
    tmr.Free;
  //  writeln('Timer fired');
    Hide;
  end;
  
  constructor TSplashForm.Create(AOwner: TComponent);
  
negative.code:   
    OnShow := @SplashFormShow;
    OnClick := @SplashFormClick;
    OnClose := @SplashFormClose;
  end;
  
  procedure TSplashForm.AfterCreate;
  