irgendwas gemacht

1 files changed, 18 insertions, 1 deletions

diff --git a/unit1.pas b/unit1.pas
index 79a1d82..c1584cb 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -1,4 +1,4 @@
-unit Unit1;
+unit unit1;
 
 {$mode objfpc}{$H+}
 
@@ -8,7 +8,11 @@ uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, raetselFileUnit;
 
 type
+
+  { TForm1 }
+
   TForm1 = class(TForm)
+    procedure FormCreate(Sender: TObject);
   private
     { private declarations }
   public
@@ -22,5 +26,18 @@ implementation
 
 {$R *.lfm}
 
+uses
+  unit2;
+
+{ TForm1 }
+
+procedure TForm1.FormCreate(Sender: TObject);
+begin
+  case form2.showmodal of
+    mrBuchstabenraetsel: ;
+    mrHochhausraetsel: ;
+  end;
+end;
+
 end.