anchor.diff:    
     OnShow := @SplashFormShow;
     OnClick := @SplashFormClick;
  +  OnClose := @SplashFormClose;
   end;
   
   procedure TSplashForm.AfterCreate;
  
positive.code: begin
    tmr.Enabled := False;
    tmr.Free;
  //  writeln('Timer fired');
    Hide;
  end;
  
  constructor TSplashForm.Create(AOwner: TComponent);
  
negative.code:   TimerFired(nil);
  end;
  
  procedure TSplashForm.SplashFormClose(Sender: TObject; var CloseAction: TCloseAction);
  begin
    CloseAction := caFree;
  end;
  
  procedure TSplashForm.SplashFormShow(Sender: TObject);
  begin
    tmr.Enabled := True;
  