Na versão baixada no Tortoise e na Unit pcesConversaoeSocial, se colocar as funções como abaixo, para os sistemas próprios que geram o xml, já dá pra testar em produção restrita o envio e o retorno dos eventos xml.
function StrToVersaoeSocial(out ok: Boolean; const s: String): TVersaoeSocial;
begin
result := StrToEnumerado(ok, s, ['02_04_01', '02_04_02', '02_05_00','S01_00_00'],
[ve02_04_01, ve02_04_02, ve02_05_00, ve01_00_00]);
end;
function VersaoeSocialToStr(const t: TVersaoeSocial): String;
begin
result := EnumeradoToStr(t, ['02_04_01', '02_04_02', '02_05_00','_S_01_00_00'],
[ve02_04_01, ve02_04_02, ve02_05_00, ve01_00_00]);
end;