//Пример кода : Показ всех форматированный типов данных 
var
  text : string;
begin
  // Только 1 элемент данных
  ShowMessageFmt('%s', ['Hello']);

  // Соединение символьного текста и элемента данных
  ShowMessageFmt('Строка = %s', ['Hello']);
  ShowMessage('');

  // Examples of each of the data types
  ShowMessageFmt('Decimal          = %d', [-123]);
  ShowMessageFmt('Exponent         = %e', [12345.678]);
  ShowMessageFmt('Fixed            = %f', [12345.678]);
  ShowMessageFmt('General          = %g', [12345.678]);
  ShowMessageFmt('Number           = %n', [12345.678]);
  ShowMessageFmt('Money            = %m', [12345.678]);
  ShowMessageFmt('Pointer          = %p', [addr(text)]);
  ShowMessageFmt('String           = %s', ['Hello']);
  ShowMessageFmt('Unsigned decimal = %u', [123]);
  ShowMessageFmt('Hexadecimal      = %x', [140]);
end;

//Пример кода : Используя индекс, ширину и значения точности 
begin
  // Значение ширины диктует размер вывода
  // с пробелом добавленным влево
  // Обратите внимание <>, символы добавляются, чтобы показать форматирование
  ShowMessageFmt('Дополняемое десятичное число    = <%7d>', [1234]);

  // С оператором '-', данные выровниваются влево
  ShowMessageFmt('Выровненное десятичное число = <%-7d>', [1234]);

  // Значение точности вызывает дополнение 0 к желательному размеру
  ShowMessageFmt('Дополненное 0 десятичное число = <%.6d>', [1234]);

  // Комбинация ширины и точности
  // Обратите внимание, что значение ширины предшествует значению точности
  ShowMessageFmt('Ширина + точность = <%8.6d>', [1234]);

  // Индексное значение позволяет следующему значению в массиве
  // данных быть измененным
  ShowMessageFmt('Перестановка после 3 строк = %s %s %s %1:s %s',
                     ['Zero', 'One', 'Two', 'Three']);

  // Один или больше значений может быть обеспечен массивом данных
  // непосредственно. Обратите внимание, что испытание показало *
  // для параметра ширины может привести к EConvertError.
  ShowMessageFmt('В строке                 = <%10.4d>', [1234]);
  ShowMessageFmt('Управляемая часть данных = <%*.4d>', [10, 1234]);
  ShowMessageFmt('Управляемые данные       = <%*.*d>', [10, 4, 1234]);
end;