Изменение системного времени из Delphi2

Программист:
- Сегодня у сына день рождения.
- И сколько ему исполняется?
- 1024 дня.

Можно. Попробуйте следующий код:

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;