var
  myDate : TDateTime;
  formattedDate : string;

begin
  myDate := StrToDateTime('09/02/2002 11:03');

  // Формат используемый значение по умолчанию TimeAMString
  DateTimeToString(formattedDate, 'dd/mm/yyyy  @  hh:nn ampm', myDate);
  ShowMessage('Используя значение по умолчанию AM = '+formattedDate);

  // Формат используя значение 'утра'
  TimeAMString := 'утра';
  DateTimeToString(formattedDate, 'dd/mm/yyyy  @  hh:nn ampm', myDate);
  ShowMessage('С изменённым значением AM = '+formattedDate);
end;