diff options
Diffstat (limited to 'unit2.pas')
-rw-r--r-- | unit2.pas | 12 |
1 files changed, 0 insertions, 12 deletions
@@ -14,8 +14,6 @@ type TForm2 = class(TForm) Button1: TButton; Button2: TButton; - procedure Button1Click(Sender: TObject); - procedure Button2Click(Sender: TObject); private { private declarations } public @@ -35,15 +33,5 @@ implementation { TForm2 } -procedure TForm2.Button1Click(Sender: TObject); -begin - modalResult:=mrHochhausraetsel; -end; - -procedure TForm2.Button2Click(Sender: TObject); -begin - modalResult:=mrBuchstabenraetsel; -end; - end. |