Data com dia da semana no StatusBar

Ola pessoal..

Gostaria de pegar a data e hora do sistema, com a data e dia da semana, to fazendo assim:

stb_Principal.Panels[1].Text:=FormatDateTime('dddddd,hh:nn:ss AM/PM', Now)+DateToStr(DayOfWeek(date));
mas aparece algo no fim do código nada a vê, "1899"....

poderaim me ajudar?

obrigado!