По заданному номеру месяца определить количество дней в месяце

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{ int s,n;
  s=StrToInt(Edit1->Text);
  switch(s)
  {case '1':n=30; break;
   case '2':n=29; break;
   case '3':n=31; break;
   case '4':n=30; break;
   case '5':n=31; break;
   case '6':n=30; break;
   case '7':n=31; break;
   case '8':n=31; break;
   case '9':n=30; break;
   case'10':n=31; break;
   case'11':n=30; break;
   case'12':n=31; break;
  }
    Edit2->Text=IntToStr(n);
  }
//---------------------------------------------------------------------------

s=StrToInt(Edit1->Text);

s=StrToDate(Edit1->Text);

Memo1->Lines->Add("Day in month: " + IntToStr(DayOfTheMonth(date1)));

switch (DayOfWeek(Date()-1))
  {
  case 1: ShowMessage("Понедельник");
    break;
  case 2: ShowMessage("Вторник");
    break;
  case 3: ShowMessage("Среда");
    break;
  case 4: ShowMessage("Четверг");
    break;
  case 5: ShowMessage("Пятница");
    break;
  case 6: ShowMessage("Суббота");
    break;
  case 7: ShowMessage("Воскресенье");
    break;}

  char  dnej[12] = { 31,28,31,30,31,30,31,31,30,31,30,31 };
  Label1->Caption = IntToStr(dnej[Edit1->Text.ToInt()-1]);