Delphi split datetime

delphi split datetime

  ShowMessage('Year: '   + IntToStr(AYear));
  ShowMessage('Month: '  + IntToStr(AMonth));
  ShowMessage('Day: '    + IntToStr(ADay));
  ShowMessage('Hour: '   + IntToStr(AHour));
  ShowMessage('Minute: ' + IntToStr(AMinute));
  ShowMessage('Second: ' + IntToStr(ASecond));