var
  myDate : TDateTime;
  formattedDate : string;

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

  // Показ используя значение по умолчанию ShortTimeFormat
  DateTimeToString(formattedDate, 't', myDate);
  ShowMessage('15:06:23.456 используя умолчания = '+formattedDate);

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