Как изменить системное время?

Code:

DateTimeToSystemTime(tSetDati,Tst);

Code:

{©Drkb v.3}

Procedure settime(hour, min, sec, hundreths : byte); assembler;

asm

mov ch, hour

mov cl, min

mov dh, sec

mov dl, hundreths

mov ah, $2d

int $21

end;

////////////////////////////////////////////////////////////////////////

Procedure setdate(Year : word; Month, Day : byte); assembler;

asm

mov cx, year

mov dh, month

mov dl, day

mov ah, $2b

int $21

end;