[lmikle]

А в справку слабо заглянуть?

Код:

procedure TForm1.Button1Click(Sender: TObject);
const
  cDays : Array [1..7] Of String = ('Вс','Пн','Вт','Ср','Чт','Пт','Сб');
begin
  Label1.Caption := cDays[DayOfWeek(Date)];
end;