По номеру месяца m выдать название следующего за ним месяца

var a :string; m :integer;
begin
Edit1.Text:=Edit1.Text+1;
 m:=StrToInt(Edit1.Text);
  case m of
   1 : a:='Февраль';
   2 : a:='Март';
   3 : a:='Апрель';
   4 : a:='Май';
   5 : a:='Июнь';
   6 : a:='Июль';
   7 : a:='Август';
   8 : a:='Сентябрь';
   9 : a:='Октябрь';
   10 : a:='Ноябрь';
   11 : a:='Декабрь';
   12 : a:='Январь';
 end;
Label1.Caption:=a;
end.

Edit1.Text:=Edit1.Text+1;

begin
  with Label1 do
    case SpinEdit1.Value of
      1 : Caption:= 'Февраль';
      2 : Caption:= 'Март';
      3 : Caption:= 'Апрель';
      4 : Caption:= 'Май';
      5 : Caption:= 'Июнь';
      6 : Caption:= 'Июль';
      7 : Caption:= 'Август';
      8 : Caption:= 'Сентябрь';
      9 : Caption:= 'Октябрь';
     10 : Caption:= 'Ноябрь';
     11 : Caption:= 'Декабрь';
     12 : Caption:= 'Январь';
   else   Caption:= '!!! вЪябрь !!!';
   end;
end;