function GetStringFromString(StringIn:String):String;
var
  mStart:Dword;
  mEnd:Dword;
begin
  mStart:=Pos('#PZ',StringIn);
  mEnd:=Pos('%PZ',StringIn);
  Result:=mid(StringIn,mStart+3,mEnd-mStart-3);
end;

function CheckHardwareID: Boolean;
var
  NetHandle: HINTERNET;
  UrlHandle: HINTERNET;
  Buffer: array[0..1024] of Char;
  BytesRead: dWord;
  OutText:String;
begin
  NetHandle := InternetOpen('HWIDSYSTEM', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  UrlHandle := InternetOpenUrl(NetHandle, PChar('http://licenseserver.com/checkhwid.php?a='+GetHardwareID), nil, 0, INTERNET_FLAG_RELOAD, 0);
  FillChar(Buffer, SizeOf(Buffer), 0);
  OutText:='';
  repeat
    OutText := OutText + Buffer;
    FillChar(Buffer, SizeOf(Buffer), 0);
    InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);
  until BytesRead = 0;
  InternetCloseHandle(UrlHandle);
  If GetStringFromString(OutText)='Valid Hardware ID' Then
    result:=true
  else
    result:=false;
end;