[ecfisa]

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'; // (Aquí es donde obtendrás la fecha de algún lado...)

  Plazo := StringReplace(Plazo, '-', '/', [rfReplaceAll]); // Ahora Plazo contiene : '25/11/2018'
  ...

Saludos