[Delphi] 在delphi中分别获取当前年月日

procedure TForm1.Button1Click(Sender: TObject);
var
Present: TDateTime;
Year, Month, Day:Word;
begin
Present:= Now;
DecodeDate(Present, Year, Month, Day);
showmessage('今天是'+inttostr（Year）+'年'+inttostr(Month)+'月'+inttostr(Day)+'日');
end;