c'est bon j'avais fait l'erreur de déclarer un "type" dans mes en-têtes.
Voilà un squelette de Unit sans form :
unit GlobalRoutines;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, ..., ...;
procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
...
var
Var1, Var2, Var3: string;
DoIt: Boolean;
...
const
CR = #13; // "Enter" key, "Carriage Return"
CRLF = #13#10; // Carriage Return + LineFeed
implementation
procedure SetDateTime(Year, Month, Day, Hour, Minu, Sec, MSec: Word);
begin
...
end;
...
end.