Стартовый пул

UniqueInstance/registeruniqueinstance.pas

@@ -0,0 +1,29 @@
+unit registeruniqueinstance;
+
+{$Mode ObjFpc}
+{$H+}
+
+interface
+
+uses 
+  Classes, SysUtils, LResources, LazarusPackageIntf,uniqueinstance;
+  
+procedure Register;
+
+implementation
+
+procedure RegisterUnitUniqueInstance;
+begin
+  RegisterComponents('System',[TUniqueInstance]);
+end;  
+
+procedure Register;
+
+begin
+  RegisterUnit('uniqueinstance',@RegisterUnitUniqueInstance);
+end; 
+
+initialization
+{$i uniqueicon.lrs}
+ 
+end.