procedure GetTimeStamp (var T: TimeStamp);
GetTimeStamp gets the current local date and time as a
TimeStamp
record containing the Year, Month, Day, Hour,
Minute, Second, and so on.
GetTimeStamp is an ISO 10206 Extended Pascal extension.
Set TimeStamp.