unit FreeVision.Time; {$DEFINE FPC_DOTTEDUNITS} {$i time.pas}