取日期时间的问题

Question

在窗体中有两个组合框，分别代表年和月。
我想在程序运行时自动将他们的缺省值置为当前的年和月，请问如何做？
   我估计应该要通过取系统时间来做，但不知用什么api.

Answer 1

edit1.Text := datetostr(date());

Answer 2

Edit1.Text :=FormatDateTime('yyyy',Now);
  Edit2.Text :=FormatDateTime('mmmm',Now);

Answer 3

var
  Year, Month: string;
begin
  Year := FormatDateTime('YYYY', Now);
  Month := FormatDateTime('MM', Now);
end;

Answer 4

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text :=FormatDateTime('yyyy',Now);
  Edit2.Text :=FormatDateTime('mmmm',Now);
end;function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  ...
end;

Answer 6

var
  Year, Month: string;
begin
  Year := FormatDateTime('YYYY', Now);
  Month := FormatDateTime('M', Now);  //这里是一个M 啊
end;