[Hard]

Я сделал приблизительно так:
char days[7][15] = {"Воскресенье","Понедельник","Вторник",
"Среда","Четверг","Пятница","Суббота"};
Edit2->Text = days[DayOfWeek(Now())-1];
в принципе может и не правильно, но работает.
Все спасибо за помощь!