Hola.
¿ Que hace la función
ExpiredDate, lo mismo que la función
Server ?
Si trataras las fechas como
TDate no tendrías que tener problemas.
Pero, tratada como cadena supongo que en algun punto tenes en alguna variable el valor de la fecha de vencimiento. Por ejemplo:
Código Delphi
[-]
...
var
Plazo : string;
begin
Plazo := '25-11-2018';
Plazo := StringReplace(Plazo, '-', '/', [rfReplaceAll]); ...
Saludos