[dr. F.I.N.]

D6, WinXP, работает на все 100%, только ошибся в нумерации.

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  RusDay : array [1..7] of String = ('вс','пн','вт','ср','чт','пт','сб');
begin
  StatusBar1.Panels.Items[1].Text:=DateToStr(Date)+' '+TimeToStr(Time)+' '+RusDay[DayofWeek(Now)];
end;