Source position: flcDateTime.pas line 156
procedure SetSecond(
var D: TDateTime;
const Second: Word
);