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.