TappyTux: fix crashes.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9805 8e941d3f-bd1b-0410-a28a-d453659cc2b4

applications/tappytux/gameconfigform.pas

@@ -130,6 +130,8 @@ procedure TformConfig.FormCreate(Sender: TObject);
 var
   i: Integer;
 begin
+  //we access the formTappyTuxGame form for updating translations, but this form isn't created yet.
+  formTappyTuxGame := TformTappyTuxGame.Create(Application);
   TranslateUI();
 
   // Initialize modules

applications/tappytux/mod_tappywords.pas

@@ -170,7 +170,8 @@ begin
     CreateQuestion;
   end;
 
-  startupSound.Play;
+  if Assigned(startupSound) then
+    startupSound.Play;
 end;
 
 procedure TTappyWords.CreateQuestion();

applications/tappytux/tappytux.lpr

@@ -16,7 +16,7 @@ begin
   RequireDerivedFormResource := True;
   Application.Initialize;
   Application.CreateForm(TformConfig, formConfig);
-  Application.CreateForm(TformTappyTuxGame, formTappyTuxGame);
+  //Application.CreateForm(TformTappyTuxGame, formTappyTuxGame);
   Application.Run;
 end.