Style + remove obsolete files

1 files changed, 8 insertions, 8 deletions

diff --git a/unit1.pas b/unit1.pas
index 05b97d8..84cda28 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -13,12 +13,12 @@ type
   { tForm1 }
 
   tForm1 = class(tForm)
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
+    procedure formCreate(sender: tObject);
+    procedure formDestroy(sender: tObject);
+    procedure formShow(sender: tObject);
   private
     { private declarations }
-    procedure WMGetDlgCode(var msg: tMessage); message WM_GETDLGCODE;
+    procedure wMGetDlgCode(var msg: tMessage); message wM_GETDLGCODE;
     procedure onSetCaption(c: string);
   public
     { public declarations }
@@ -26,7 +26,7 @@ type
   end;
 
 var
-  Form1: TForm1;
+  form1: tForm1;
 
 implementation
 
@@ -37,7 +37,7 @@ uses
 
 // tForm1 **********************************************************************
 
-procedure tForm1.WMGetDlgCode(var msg: tMessage);// message WM_GETDLGCODE;
+procedure tForm1.wMGetDlgCode(var msg: tMessage);// message wM_GETDLGCODE;
 begin
   inherited;
   msg.result := msg.result or DLGC_WANTARROWS;
@@ -64,12 +64,12 @@ begin
   form1.caption:=c;
 end;
 
-procedure tForm1.FormDestroy(Sender: TObject);
+procedure tForm1.formDestroy(sender: tObject);
 begin
   raetsel.free;
 end;
 
-procedure tForm1.FormShow(Sender: TObject);
+procedure tForm1.formShow(sender: tObject);
 begin
   if assigned(raetsel) then
     raetsel.zeichnen;