Source position: time.pas line 123
procedure GetTime(
var Hour: Word;
var Minute: Word;
var Second: Word;
var Sec100: Word
);