1 files changed, 6 insertions, 0 deletions
diff --git a/unit1.pas b/unit1.pas
index 78fd6ff..88349aa 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -23,6 +23,7 @@ type
     procedure FormDestroy(Sender: TObject);
     procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
+    procedure Image1DblClick(Sender: TObject);
     procedure TrayIcon1Click(Sender: TObject);
     procedure TrayIcon1DblClick(Sender: TObject);
     procedure TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
@@ -207,6 +208,11 @@ begin
   form1.left:=screen.monitors[0].left+screen.monitors[0].width -form1.width;
 end;
 
+procedure TForm1.Image1DblClick(Sender: TObject);
+begin
+  writeln(wetter.statistics);
+end;
+
 procedure TForm1.TrayIcon1Click(Sender: TObject);
 begin
   form1.visible:=not form1.visible;