»Add('Размер A бокового стержня пакета [' + IntToStr(j + 1) + '], мм = ' + FormatFloat('0.0', FSM.DimensionA[j]));
стоит заменить на add(format('блабла',[..]) и вынести текстовые строки в ресурсные строки
Спасибо, почитаю как это сделать. И спасибо за замечания!