Initial commit with my code directory

code_JMW/Utest.pas

@@ -0,0 +1,27 @@
+unit Utest;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, Menus, ExtCtrls,
+  UDessin, UDessinComposant,UFonctions, UInit,UEdit;
+
+procedure test(v:variant);
+procedure test2(v:variant);
+
+implementation
+
+uses Unit1;
+
+procedure test(v:variant);
+begin
+  form1.Memo1.Lines.Add(FormatDateTime('ss,zzz',now)+' '+VarTostr(v));
+end;
+
+procedure test2(v:variant);
+begin
+ // form1.Memo1.Lines.Add(FormatDateTime('ss,zzz',now)+' '+VarTostr(v));
+end;
+
+end.