Download File with NoCache, get Information from Server

uses WinInet

function DownloadURL_NOCache(const aUrl: string; var s: String): Boolean;
var
 hSession: HINTERNET;
 hService: HINTERNET;
 lpBuffer: array[0..1024 + 1] of Char;
 dwBytesRead: DWORD;
begin
 Result := False;
 s := '';
 // hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
 hSession := InternetOpen('MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
 try
 if Assigned(hSession) then
 begin
 hService := InternetOpenUrl(hSession, PChar(aUrl), nil, 0, INTERNET_FLAG_RELOAD, 0);
 if Assigned(hService) then
 try
 while True do
 begin
 dwBytesRead := 1024;
 InternetReadFile(hService, @lpBuffer, 1024, dwBytesRead);
 if dwBytesRead = 0 then break;
 lpBuffer[dwBytesRead] := #0;
 s := s + lpBuffer;
 end;
 Result := True;
 finally
 InternetCloseHandle(hService);
 end;
 end;
 finally
 InternetCloseHandle(hSession);
 end;
end;

Beispiel :

procedure TForm1.Button1Click(Sender: TObject);
var
 s: String;
begin
 if DownloadURL_NOCache('https://www.google.de/?gws_rd=ssl', s) then
 Memo1.Lines.Add(s);
end;