delphi formatDateTime (1)