Delphi-Quellcode:
Panel1.Caption := TimeToStr(Time);
StatusBar1.Panels[0].Text := TimeToStr(Time);
StatusBar1.Panels[1].Text := FormatDateTime ('"Heute ist" dddd, "der" d mmmm yyyy" ', Date);
Kannset auch anstatt Panel/Satusbar nen Label o.ä. nehmen
EDIT:
d mmmm yyyy dddd