function DownloadFile(const AURL: string; var AResponse: string): Boolean;
var
  WinHttpRequest: Variant;
begin
  Result := True;
  try
    WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    WinHttpRequest.Open('GET', AURL, False);
    WinHttpRequest.Send;
    AResponse := WinHttpRequest.ResponseText;
  except
    Result := False;
    AResponse := GetExceptionMessage;
  end;
end;
 
procedure InitializeWizard;
var
  DxLastVersion: string;
 
begin
  if DownloadFile('http://dex.wotanksmods.com/latestver.txt', DxLastVersion)  then
    MsgBox(DxLastVersion, mbInformation, MB_YESNO)
  else
    MsgBox(DxLastVersion, mbError, MB_OK)
end;

const
  // La constante de la versión actual.
  AppVer = 1.0;
 
begin
 // Si el archivo se descarga corréctamente...
 if DownloadFile('http://dex.wotanksmods.com/latestver.txt', DxLastVersion)  then
 
    // comparo el string de la version descargada, con la version actual...  // return 1 if ver1 > ver2
    if CompareVersion(DxLastVersion, AppVer) = 1 then
      // Se ha encontrado una versión más actualizada, hacer lo que quieras...
      // Code goes here.
 
    else
      // Estás usando la versión más reciente.
      // Do nothing.
 
    end;
 
end;

function DownloadFile(const AURL: string; var AResponse: string): Boolean;
var
  WinHttpRequest: Variant;
begin
  Result := True;
  try
    WinHttpRequest := CreateOleObject('WinHttp.WinHttpRequest.5.1');
    WinHttpRequest.Open('GET', AURL, False);
    WinHttpRequest.Send;
    AResponse := WinHttpRequest.ResponseText;
  except
    Result := False;
    AResponse := GetExceptionMessage;
  end;
end;
 
procedure DecodeVersion( verstr: String; var verint: array of Integer );
var
  i,p: Integer; s: string;
begin
  // initialize array
  verint := [0,0,0,0];
  i := 0;
  while ( (Length(verstr) > 0) and (i < 4) ) do
  begin
  	p := pos('.', verstr);
  	if p > 0 then
  	begin
      if p = 1 then s:= '0' else s:= Copy( verstr, 1, p - 1 );
  	  verint[i] := StrToInt(s);
  	  i := i + 1;
  	  verstr := Copy( verstr, p+1, Length(verstr));
  	end
  	else
  	begin
  	  verint[i] := StrToInt( verstr );
  	  verstr := '';
  	end;
  end;
 
end;
 
function CompareVersion( ver1, ver2: String ) : Integer;
var
  verint1, verint2: array of Integer;
  i: integer;
begin
 
  SetArrayLength( verint1, 4 );
  DecodeVersion( ver1, verint1 );
 
  SetArrayLength( verint2, 4 );
  DecodeVersion( ver2, verint2 );
 
  Result := 0; i := 0;
  while ( (Result = 0) and ( i < 4 ) ) do
  begin
  	if verint1[i] > verint2[i] then
  	  Result := 1
  	else
      if verint1[i] < verint2[i] then
  	    Result := -1
  	  else
  	    Result := 0;
 
  	i := i + 1;
  end;
 
end;
 
 
function GetDeXVersion(): String;
var
  DeXVersion:  String;
begin
  DeXVersion := '';
  DownloadFile('http://www.laurl.com/latestver.txt', DeXVersion );
  Result := DeXVersion;
end;
 
 
function InitializeSetup(): Boolean;
begin
  if CompareVersion(GetDeXVersion(), '3.3.6') > 0 then
  begin
    Result := MsgBox('Se ha encontrado una version mas?',mbConfirmation, MB_YESNO) = idYes;
    if Result = False then
      MsgBox('Aqui mensaje para ir a la url o donde sea', mbInformation, MB_OK);
  end
  else
    Result := true;
end;