Vencimento Incorreto no Retorno Santander 240

[RobertoSchuster]

Olá, verifiquei que na revision 12732, de 26/12/2016, foi incluída a seguinte linha na unit do banco Santander, na função LerRetorno240:

Vencimento := StrToDateDef(Copy(Linha, 70, 8), 0);

Contudo, este código não deve obter a data corretamente pois o valor extraído vem sem as barras "/".

Neste sentido sugiro o seguinte código:

Vencimento := StringToDateTimeDef(Copy(Linha, 70, 2)+'/'+
                                  Copy(Linha, 72, 2)+'/'+
                                  Copy(Linha, 74, 4), 0, 'dd/mm/yyyy' );

PS: Não estou anexando o fonte pois tenho alterações aqui no arquivo local.