DayOfWeek richtig ausgeben?

[AlexII]

Versuche als vergebens den Wochentag richtig auszugeben. Drehe bald durch, irgendwie spinnt mein Delphi total.
Hab schon mehrere Versuche unternommen, z.B. so, aber bekomme nir die Zahl von 1 bis 7 Wer weiß wieso?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Date: TDate;
begin
showmessage(datetostr(DayOfWeek(Date)));
end;