Вывести на экран количество дней месяца по его названию (разветвление, выбор)

 if (year mod 400=0) or ((year mod 4)=0 and (year mod 100<>0)) then
days :=29 else days :=28;

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    lbl1: TLabel;
    edt1: TEdit;
    lbl2: TLabel;
    lbl3: TLabel;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
i:integer;
a:text;
sta:string;
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
 Val (edt1.Text a,i);
    case a of
   Январь:sta:='31 days';
   Март:sta:='31 days';
   Май:sta:='31 days';
   Июль:sta:='31 days';
   Август:sta:='31 days';
   Октябрь:sta:='31 days';
   Декабрь:sta:='31 days';
   end;
   lbl3.Caption:=sta
end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var L : TStringList;
    m : integer;
begin
 L := TStringList.Create;
 L.CommaText := 'январь,февраль,март,апрель,май,июнь,июль,август,сентябрь,октябрь,ноябрь,декабрь';
 m := L.IndexOf(AnsiLowerCase(Edit1.Text));
 case m of
  0, 2, 4, 6, 7, 9, 11 : Label1.Caption := '31 день';
  1 : Label1.Caption := '28 или 29 дней';
  3, 5, 8, 10 : Label1.Caption := '30 дней';
 else Label1.Caption := 'Нет такого месяца!';
 end;
 L.Free;
end;