если использовать StrList то нужно преобразовывать все числа в строку

procedure THIStrCatDelim._work_doStrCatDlm;
var s1,s2,d1:string;
begin
s1 := ReadString(_Data,_data_Str1,_prop_Str1);
s2 := ReadString(_Data,_data_Str2,_prop_Str2);
d1 := ReadString(_Data,_data_Delimiter,_prop_Delimiter);
FRes := s1 + d1 + s2;
_hi_CreateEvent(_data, @_event_onStrCatDlm, FRes);
end;