Знаки зодиака

uses DateUtils;
 
type
  zodiak=(Овен,Телец,Близнецы,Рак,Лев,Дева,Весы,Скорпион,Стрелец,Козерог,Водолей,Рыбы,Чупакабра);
 
procedure TForm1.Button1Click(Sender: TObject);
//В поле Edit1 вводится дата вида dd.mm.yyyy
var
  date:TDateTime;
  day,month:Word;
 
  function GetZodiak:zodiak;
  begin
    case month of
      1:if day<20 then
          Result:=Козерог
        else
          Result:=Водолей;
      2:if day<19 then
          Result:=Водолей
        else
          Result:=Рыбы;
      3:if day<21 then
          Result:=Рыбы
        else
          Result:=Овен;
      4:if day<21 then
          Result:=Овен
        else
          Result:=Телец;
      5:if day<21 then
          Result:=Телец
        else
          Result:=Близнецы;
      6:if day<23 then
          Result:=Близнецы
        else
          Result:=Рак;
      7:if day<23 then
          Result:=Рак
        else
          Result:=Дева;
      8:if day<24 then
          Result:=Дева
        else
          Result:=Весы;
      9:if day<22 then
          Result:=Весы
        else
          Result:=Скорпион;
      10:if day<22 then
           Result:=Скорпион
         else
           Result:=Стрелец;
      11:if day<20 then
           Result:=Стрелец
         else
           Result:=Водолей;
      12:if day<20 then
           Result:=Водолей
         else
           Result:=Козерог;
    else
      Result:=Чупакабра;
    end;
  end;
 
  function SetGor(x:Zodiak):boolean;
  //Овен - 'Data\0\'
  //Чупакабра - 'Data\12\'
  begin
    try
      Image1.Picture.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Icon.bmp');
      Memo1.Lines.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Text.txt');
      Result:=true;
    except
      Result:=false;
    end;
  end;
 
begin
  date:=StrToDate(Edit1.Text);
  day:=DateUtils.DayOf(date);
  month:=DateUtils.MonthOf(date);
  SetGor(GetZodiak)
end;

...
procedure TForm1.Button1Click(Sender: TObject);
begin
 
end;
...

uses DateUtils;//в число модулей, используемых компиляотром, добавляется DateUtils
 
type
  zodiak=(Овен,Телец,Близнецы,Рак,Лев,Дева,Весы,Скорпион,Стрелец,Козерог,Водолей,Рыбы,Чупакабра); 
//Объявляется тип данных для хранения знака зодиака
 
procedure TForm1.Button1Click(Sender: TObject);
//В поле Edit1 вводится дата вида dd.mm.yyyy (01.01.2000)
var
  date:TDateTime;//переменная типа дата-время
  day,month:Word;//целые числа (0..65535)
 
  function GetZodiak:zodiak;//функция возвращает знак зодиака
  begin
    case month of            //выбор номера месяца
      1:if day<20 then       //первый месяц: если число меньше 20 то
          Result:=Козерог    //знак зодиака - Козерог
        else                      //иначе
          Result:=Водолей;  //знак зодиака - Водолей
      2:if day<19 then        //второй месяц...
          Result:=Водолей
        else
          Result:=Рыбы;
      3:if day<21 then
          Result:=Рыбы
        else
          Result:=Овен;
      4:if day<21 then
          Result:=Овен
        else
          Result:=Телец;
      5:if day<21 then
          Result:=Телец
        else
          Result:=Близнецы;
      6:if day<23 then
          Result:=Близнецы
        else
          Result:=Рак;
      7:if day<23 then
          Result:=Рак
        else
          Result:=Дева;
      8:if day<24 then
          Result:=Дева
        else
          Result:=Весы;
      9:if day<22 then
          Result:=Весы
        else
          Result:=Скорпион;
      10:if day<22 then
           Result:=Скорпион
         else
           Result:=Стрелец;
      11:if day<20 then
           Result:=Стрелец
         else
           Result:=Водолей;
      12:if day<20 then
           Result:=Водолей
         else
           Result:=Козерог;
    else  //если месяц не выбран до этого
      Result:=Чупакабра;  //знак зодиака - Чупакабра
    end;
  end;
 
  function SetGor(x:Zodiak):boolean;
  //в папке программы нужно создать папку Data, в ней 13 папок с именами "0","1","2",..."12"
  //в каждой из них - 2 файла:
  // Icon.bmp - с изображением знака
  // Text.txt - с текстом гороскопа для этого знака
  begin
    try
      Image1.Picture.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Icon.bmp');//загрузка значка
      Memo1.Lines.LoadFromFile('Data\'+IntToStr(Integer(x))+'\Text.txt');//загрузка гороскопа
      Result:=true;  //если все успешно, то результат - true
    except //если в процессе загрузки произошли ошибки
      Result:=false; //результат - false
    end;
  end;
 
begin
  date:=StrToDate(Edit1.Text);//получение даты из поля ввода
  day:=DateUtils.DayOf(date);//определение дня
  month:=DateUtils.MonthOf(date);//определение месяца
  SetGor(GetZodiak)//собственно обработка
end;