debug-Versionen neu

1 files changed, 7 insertions, 0 deletions

diff --git a/unit1.pas b/unit1.pas
index 84cda28..cf26780 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -45,7 +45,13 @@ end;
 
 procedure tForm1.formCreate(sender: tObject);
 begin
+  {$IFDEF DEBUG}
+  writeln('procedure tForm1.formCreate(sender: tObject);');
+  {$ENDIF}
   application.createForm(tForm2, form2);
+  {$IFDEF DEBUG}
+  writeln('application.createForm(tForm2, form2);');
+  {$ENDIF}
   case form2.showmodal of
     mrBuchstabenraetsel:
       raetsel:=tBuchstabenRaetsel.create(form1);
@@ -54,6 +60,7 @@ begin
     else begin
       raetsel:=nil;
       application.terminate;
+      exit;
     end;
   end;
   raetsel.onSetCaption:=@onSetCaption;