Problema con datetime

[MacStreet]

Hola a toda la comunidad de clubdelphi, tengo un problema al usar el datetime, anteriormente usaba este codigo :

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var
fin:boolean;
a:TDateTime;
 f : TextFile;
begin

a:=DateToStr('10/09/2017');
// fechaes:'dia/mes/año'
if date >= a then
begin
fin:=true;
Application.Terminate();
end;
end;

funciona perfectamente y todo, el problema viene a ser cuando tu cambias la fecha de tu ordenador la cambias al dia : "10/09/2017"
vuelve a funcionar la aplicacion, asi ya se haya vencido, estube pensando en que ya no usara la fecha por defecto del ordenador si no que usé la fecha del internet (obtener hora desde internet ) pero no sabria como cambiar el valor por defecto que tiene el datetime, estube viendo y me dijieron que use el "IdSNTP1" .
Gracias por adelantado