Изменение системной даты, ошибка Опции

[Unconnected]

Изменяю системную дату в delphi таким кодом, взятым из DRKB:

Procedure setdate(Year : word; Month, Day : byte); assembler;
asm
mov cx, year
mov dh, month
mov dl, day
mov ah, $2b
int $21
end; 

Вызываю так:

setdate(1939,5,5);

Компилятор выдаёт ошибку Access Violation и показывает на выделенную строку.