var
  myDate : TDateTime;
  formattedDate : string;

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

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

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