Spielnummern neu

1 files changed, 7 insertions, 0 deletions

diff --git a/unit1.pas b/unit1.pas
index 27ec7c2..05b97d8 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -19,6 +19,7 @@ type
   private
     { private declarations }
     procedure WMGetDlgCode(var msg: tMessage); message WM_GETDLGCODE;
+    procedure onSetCaption(c: string);
   public
     { public declarations }
     raetsel: tRaetsel;
@@ -55,6 +56,12 @@ begin
       application.terminate;
     end;
   end;
+  raetsel.onSetCaption:=@onSetCaption;
+end;
+
+procedure tForm1.onSetCaption(c: string);
+begin
+  form1.caption:=c;
 end;
 
 procedure tForm1.FormDestroy(Sender: TObject);