var
  myDate : TDateTime;
  formattedDate : string;

begin
  myDate := StrToTime('15:06:23.456');

  // Отображение используя LongTimeFormat, настроенный по умолчанию
  DateTimeToString(formattedDate, 'tt', myDate);
  ShowMessage('15:06:23.456 используя умолчания = '+formattedDate);

  // Изменение форматирования
  LongTimeFormat := 'hh mm ss (zzz)';
  DateTimeToString(formattedDate, 'tt', myDate);
  ShowMessage('15:06:23.456 используя изменения = '+formattedDate);
end;