Вывести в Memo все даты месяца по дням недели

uses ...,DateUtils;
//В ComboBox1 выбираются месяцы(<Номер месяца>-<Название месяца>). В Edit1 вводится год(Например, 2014). 
var 
Str: String; 
Day: TDate;
DaysMonth,a,u: Integer;  
begin
if ComboBox1.ItemIndex<0 then exit; //если нечего из списка не выбрано то выходим
if Edit1.Text='' then exit; //если нечего не введено то выходим
Day:=StrToDate('1.' + Copy(ComboBox1.Items.Strings[ComboBox1.ItemIndex],1,2) + '.' + Edit1.Text); //составляем первый день в выбранном месяце выбранного года 
DaysMonth:=DaysInAMonth(Day); //узнаем количество дней в месяце
Memo1.Lines.Clear;
Memo1.Lines.Add('Месяц:' + ComboBox1.Items.Strings[ComboBox1.ItemIndex] + 'Года:' + Edit1.Text);
Memo1.Lines.Add('Количество дней в месяце:' + IntToStr(DayMonth));
For a:=1 To DayMonth-1 Do 
begin
u:=DayOfTheWeek(Day); //узнаем номер дня недели 
case u of 
1: Str:='Понедельник';
2: Str:='Вторник';
3: Str:='Среда';
4: Str:='Четверг';
5: Str:='Пятница';
6: Str:='Суббота';
7: Str:='Воскресенье';
end;
Memo1.Lines.Add('День ' + IntToStr(a) + '-' + Str); //добавляем строку в memo
Str:=''; //очищаем строку
Day:=Day+1; //продвигаемся
end; 
Edit1.Text:='';
ComboBox1.ItemIndex:=-1;
ShowMessage('Готово');
end;