[angvelem]

Вот, если не напутал.

Код:

const
  aDay : array[0..6] of String = ('вс', 'пн', 'вт', 'ср', 'чт', 'пт', 'сб');
var
  I : Integer;
begin
  Label11.Caption := aDay[DayOfWeek(Date) - 1];;
  I := DayOfWeek(Date);
  if I = 7 then
    I := 0; 
  Label12.Caption := aDay[i];
end;