月份前不显示零，快帮忙

月份前不显示零，大虾快帮忙
代码
procedure Tfmttdate.FormCreate(Sender: TObject);
begin
  inherited;
  date_year.Text:=formatdatetime('yyyy',now);
  data_month.Text:=ForMatDatetime('MM',now);
end;
如何令当前的月份不是显示08，而显示8


[解决办法]
data_month.Text:=ForMatDatetime( "M ",now); 

[解决办法]
ForMatDatetime('M',now);

[解决办法]
SpinEdit里面显示的是整形