И зачем это?

ммм это что одноразовый компонент что ли...

procedure THISetLength._work_doSetLen;
var
l:integer;
begin
 s := ReadString(_Data, _data_Str, _prop_Str) + #0;
 l := ReadInteger(_Data, _data_Count, _prop_Count);
 if l > length(s) - 1 then
   l := length(s) - 1;  
 SetLength(s, l);
 _hi_OnEvent(_event_onRes, s); 
end;

В Object Pascal(DELPHI) и STL(стандартная библиотека шаблонов в языке программирования C++) строка является «чёрным ящиком», в котором выделение/высвобождение памяти происходит автоматически — без участия программиста. При создании строки память выделяется автоматически; как только на строку не останется ни одной ссылки, память возвращается системе. Преимущество этого метода в том, что программист не задумывается над работой строк. С другой стороны, программист имеет недостаточный контроль над работой программы в критичных к скорости участках; также трудно реализуется передача таких строк в качестве параметра в DLL. Также Object Pascal автоматически следит, чтобы в конце строки был символ с кодом 0. Поэтому если функция требует на входе нуль-терминированную строку, для конвертации надо просто написать PAnsiChar(строковая_переменная) или PWideChar(строковая_переменная) (для Pascal), переменная.c_str() (для Builder/STL).

это что одноразовый компонент что ли...

Для кого нужно писать s := ReadString(_Data, _data_Str, _prop_Str) + #0? Это сишные мансы для типа *char

Нужно копирование строки, как это сделано в StrMask

но и увеличивать строку

Процедура SetLength(str,Count) изменяет размер строки.
При изменении размера строки, новый размер может быть меньше, такой же или больше, чем у существующей строки. Во всех случаях размер задается в символах и в любом случае создается новая строка. (выделено мной)
Если строка короче, то она отсекается. Если она длиннее, то добавленные символы не будут проинициализированы.

После нужной строки там вообще черте что, а не данные

Т.е. их нужно просто заполнить пробелами

а другому понадобятся другие символы

Если написать просто s := ReadString(_Data, _data_Str, _prop_Str), то дополнительная память выделяться не будет и в s просто запишется указатель на строку, которая хранится в TData

#pas
var
  s1, s2: string;
begin
  s1 := ReadString(_Data, _data_Str, _prop_Str);
  s2 := s1;
  SetLength(s2, 0);
  _debug(s1);
end;

Мы уже не раз на это попадали

Интересно, каким кодом ты решишь предложенные методы doCopyFirst(Count), doCopyLast(Count)?

Copy(str,1,n) - это For i:=1 to n do s:=s+str[i];

SetLength(Result, n);
For i:=1 to n do Result[i] := str[i];

Т.е. их нужно просто заполнить пробелами

Хотелось бы пример

Add(StrCase,10414582,203,175)
{
}

На доработке

Взялся за гуж, не говори, что не дюж!

Как ты считаешь, что должен показать этот код: