Определить день недели

ОГЛАВЛЕНИЕ    HOME  MAIL

procedure TForm1.Button1Click(Sender: TObject);
begin
  case DayOfWeek(date) of
    2: Form1.Caption := 'Понедельник';
    3: Form1.Caption := 'Вторник';
    4: Form1.Caption := 'Среда';
    5: Form1.Caption := 'Четверг';
    6: Form1.Caption := 'Пятница';
    7: Form1.Caption := 'Суббота';
    else Form1.Caption := 'Воскресенье';
  end;
end;