Код:
procedure TForm1.Calendar1Change(Sender: TObject);
const
A : Array [1..7] of string[11] = ('Воскресенье', 'Понедельник', 'Вторник',
'Среда', 'Четверг', 'Пятница', 'Суббота');
begin
Edit1.Text := A [DayOfWeek(Calendar1.CalendarDate)];
end;
Это один из вариантов получения текстового названия дня недели по его номеру. Создается константный массив А с названиями дней. Затем функцией DayOfWeek получаем порядковый номер дня недели. И по порядковому номеру узнаем уже какому названию из массива А он соответствует.
Можно вообще обойтись без этого лишнего массива. Такой массив уже существует и называется он LongDayNames.
Вот тоже самое, но уже используя существующий массив:
Код:
procedure TForm1.Calendar1Change(Sender: TObject);
begin
Edit1.Text := LongDayNames[DayOfWeek(Calendar1.CalendarDate)];
end;