DayOfWeek richtig ausgeben?

[Sharky]

BTW:

Welchen Wert soll die Variable Date denn haben?

Zitat von AlexII:

Delphi-Quellcode:

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