anchor.diff:  begin
     tmr.Enabled := False;
     tmr.Free;
  -//  writeln('Timer fired');
  -  Hide;
  +  Close;
   end;
   
   constructor TSplashForm.Create(AOwner: TComponent);
  
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;
  