Создать приложение, определяющее знак зодиака

var
  d : TDateTime;
  r : Integer;
begin
  d := DateTimePicker1.Date;   //  15.11.1990 из дата пикера
  r := DayOfTheYear(d);
  if (295<=r) and (r<=326)
    then ShowMessage('Скорпион!  , Стихия Вода');
           // 22 октабря  295 день года
           // 22 ноября   326 день года
end;

m:=strtoint(Edit1.Text);
if not (m in [1..12]) then
  begin
    Showmessage('Неверно введен месяц! Повторите ввод.');
    Edit1.Clear;
    Edit1.SetFocus;
  end;
k:=0;
d:=strtoint(Edit2.Text);
if ((m=2)and(d>29))or((m in [1,3,5,7,8,10,12])and(d>31))
or((m in [4,6,9,11])and(d>30))or(d<1)then
 begin
  k:=1;
  Showmessage('Неверно введен день! Повторите ввод.');
  Edit2.Clear;
  Edit2.SetFocus;
 end;
if (m in [1..12])and(k=0)then
 begin
   case m of
   1:case d of
     1..19:s:='Козерог';
     20..31:s:='Водолей';
     end;
   2:case d of
     1..18:s:='Водолей';
     19..29:s:='Рыбы';
     end;
   3:case d of
     1..20:s:='Рыбы';
     21..31:s:='Овен';
     end;
   4:case d of
     1..21:s:='Овен';
     22..30:s:='Телец';
     end;
   5:case d of
     1..2:s:='Телец';
     21..31:s:='Близнецы';
     end;
   6:case d of
     1..21:s:='Близнецы';
     22..30:s:='Рак';
     end;
   7:case d of
     1..22:s:='Рак';
     23..31:s:='Лев';
     end;
   8:case d of
     1..22:s:='Лев';
     23..31:s:='Дева';
     end;
   9:case d of
     1..22:s:='Дева';
     23..30:s:='Весы';
     end;
  10:case d of
     1..22:s:='Весы';
     23..31:s:='Скорпион';
     end;
  11:case d of
     1..22:s:='Скорпион';
     23..30:s:='Стрелец';
     end;
  12:case d of
     1..21:s:='Стрелец';
     22..31:s:='Козерог';
     end;
  end;

...
 11:case d of
     1..22: 
            begin
               s:='Скорпион';
               s1:='Вода';
             end;
     23..30:
             begin
               s:='Стрелец';
               s1:='Огонь';
             end;
     end;
...