Probleme mit SetSytemTime

[daniel8520]

Das mach ich ja nicht. (War oben doof von mir ge/beschrieben). Hier mal mein Code:

Delphi-Quellcode:

var
  TimeVar:   TSystemTime;
  Year:   Word;
  Month:  Word;
  Day:    Word;
  Ini:    TIniFile;
begin
   If FileExists('FCC.ini')
   then
   begin
     Ini := TIniFile.Create('FCC.ini');
     Year := Ini.ReadInteger('data','year',2003);
     Month := Ini.ReadInteger('data','month',1);
     Day := Ini.ReadInteger('data','day',1);
     TimeVar.wYear := Year;
     TimeVar.wMonth := Month;
     TimeVar.wDay := Day;
     If SetSystemTime(TimeVar) then
     ShowMessage('OK')
     else
     ShowMessage('Nicht OK');
   end
   else
   ShowMessage('ERROR');

Ich weise ja TimeVar ein neues Datum zu, und setze dann TimeVar mit SetSystemTime. Aber ich bekomme immer false.