Fehler in Kalenderfunktion

[Wolfgang Mix]

Ich möcht über eine Funktion "Test" die Wochentage einiger Neujahrdaten bestimmen.

Delphi-Quellcode:

// Fehler in Datumsfunktion

function test(year:integer):word;
var mydate: TDate;
begin
  mydate:= (EncodeDate(year,1,1));
  result:=  DayOfTheWeek(mydate);
  // 5 erwartet, aber bekomme 04.01.1900 zurueck
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Label1.Caption:=DateToStr(test(2010)); // 5 = Freitag erwartet
end;

Neujahr 2010 wird ein Freitag sein, ich bekomme als Ergebis 04.01.1900 zurueck.

Was ist hier falsch?