Datums-problem

[gangs-taas]

hey,
ich bin es schon wieder ^^
ich hab mal eine frage.
ich wollte das aktuelle datum ermittel und habem ir gedacht das müsste so gehn

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    Edit1.Text := DateToStr(Weekoftheyear(now));
end;

so funktioiert auch erst einmal ganz gut nur gibt es etwas komisches
in meinem Edit1 Feld steh hinterher '27.01.1900'
obwohl meine system Urh/Datums anzeige das richtige datum anzeigt

ich versteh einfach nicht wo ich schon wieder einen fehler gmeacht hab
und die hilfs/beginnertuturials konnten mir auch nicht helfen ...


ps. ich habe Vista ...

ich hoffe ihr könnt mir helfen ...

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]