From 68a6edd06db2646188d132ebe5e929963a14a91c Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 4 Oct 2018 09:20:20 +0200
Subject: debug-Versionen neu

---
 unit1.pas | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'unit1.pas')

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;
-- 
cgit v1.2.3-54-g00ecf