1 files changed, 38 insertions, 0 deletions
diff --git a/unit2.pas b/unit2.pas
new file mode 100644
index 0000000..a870b32
--- /dev/null
+++ b/unit2.pas
@@ -0,0 +1,38 @@
+unit Unit2;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
+
+type
+
+  { TForm2 }
+
+  TForm2 = class(TForm)
+    Image1: TImage;
+    procedure FormActivate(Sender: TObject);
+  private
+
+  public
+
+  end;
+
+var
+  Form2: TForm2;
+
+implementation
+
+{$R *.lfm}
+
+{ TForm2 }
+
+procedure TForm2.FormActivate(Sender: TObject);
+begin
+  //
+end;
+
+end.
+