Problema con tiempo de expiracion

[MacStreet]

Hola, cuento con un problema con el tiempo de vencimiento de mi aplicacion por servidor.
Estoy usando este codigo, funciona perfectamente, pero he notado que en algunas computadoras su fecha es "25-11-2018" en la mia es "25/11/2018"
Lo cual yo programo para que mi aplicacion deje de funcionar hasta el dia "25/11/2018" pero en las otras computadoras que su fecha es "25-11-2018" , solo le sale un error y la aplicacion sigue funcionando, lo cual me perjudica, el codigo es este :

Código Delphi [-]
function Server(const vto: TDateTime; const aHost: string): Boolean;
var
  idSNTP: TIdSNTP;
  dt: TDateTime;
begin
  idSNTP:= TIdSNTP.Create(nil);
  try
    idSNTP.Host := aHost;
    dt := idSNTP.DateTime;
  finally
    idSNTP.Free;
  end;
  Result := dt >= vto;
end;

Código Delphi [-]
if ExpiredDate( StrToDate('10/09/2017'), 'time.windows.com' ) then
 begin
 Application.Terminate();
end;

Y lo que hice hasta ahora fue esto, pero no funciono :

Código Delphi [-]
if ExpiredDate( StrToDate('25/11/2018'), 'time.windows.com' ) OR  ExpiredDate( StrToDate('25-11-2018'), 'time.windows.com' ) then
 begin
 Application.Terminate();
end;

Porfavor quisiera que me den una pequeña ayuda en esto o ayudandome con ejemplos, gracias.