From 8f2e5f01f9dc3a6813bd8431f2c0c9172a83af4d Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Tue, 2 Oct 2018 11:30:30 +0200
Subject: Style + remove obsolete files

---
 unit1.pas | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'unit1.pas')

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