Не получается применить DecodeDate

[sergey113]

пытаюсь изменить системную дату на компьютере программно. Использую процедуру DecodeDate.
Код следующий:

var
  Form1: TForm1;
  per : TdateTime;
  timer : _SYSTEMTIME;
  wYaer, wMonth, wDay, wHour, wMinute, wSecond, wMilliseconds :word;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
per := Now;
Label1.Caption:='Системная дата '+DateToStr(per)+' и время  '+TimeToStr(per);
//ShowMessage(DateToStr(per));

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
per:=MonthCalendar1.Date;
ShowMessage(DateToStr(per));
with timer do
begin
DecodeDate(per, wYaer, wMonth, wDay);
DecodeTime(per, wHour, wMinute, wSecond, wMilliseconds);
end;
ShowMessage(IntToStr(wYaer)+' '+IntToStr(wMonth)+' '+IntToStr(wDay)) ;
SetSystemTime(timer);
MonthCalendar2.Date:=per;
end;

Ошибок при выполнении не дает, но и дата не меняется ...
Показывает, что переменная per нормальная .. т.е. 23.10.2009 например.
А вот
wYaer = 2009
wMonth = 0
wDay = 0
я не понимаю почему так происходит ...

[mihali4]

А хэлп почитать? Лень?

BOOL SetSystemTime

Return Values

If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error information, call GetLastError.

Remarks

Windows NT: The SetSystemTime function fails if the calling process does not have the SE_SYSTEMTIME_NAME privilege. This privilege is disabled by default. Use the AdjustTokenPrivileges function to enable this privilege and again to disable it after the time has been set. For more information about security privileges, see Privileges.

И потом - а где вы дату-то меняете?

[sergey113]

ничего не понял из того что написанно разобрался.. помогло точное описание пременных не так :
wYear
а так
timer.wYear Благодарая контекстной справке была обнаружена опечатка в листинге программы...
Спасибо всем братцы !