#pas
lngs:array[0..lng_count-1] of TLangRec = (
(entry:'EntryPoint'; name:'darkbasic'; str_del_o:''; str_del_c:''; var_mask:''; tostr_proc:_tostr_proc)
);
а так же отсутствие var_mask может привести к проблемам при портировании
Еще я не понял смысла элемента StrCatEx