Unit timemain

Classes

TForm1 - @/// TForm1 = class(TForm)

Functions

SetDate - @\\\0000000C01

@/// procedure SetDate(y:word; m,d: byte);
SetTime - $endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure SetTime(h,m,s,ms: byte);

Types

Constants

Variables

Form1


Functions


procedure SetDate(y:word; m,d: byte);

@\\\0000000C01

@/// procedure SetDate(y:word; m,d: byte);


procedure SetTime(h,m,s,ms: byte);

$endif *) (*@\\\0000000601*) (*@\\\0000000201*) (*@/// procedure SetTime(h,m,s,ms: byte);

Types


Constants


Variables

Form1 : TForm1