Frage zu IsConnectedToInternet, Speicher freigeben?

[Hallo_Thomas]

Hallo,
ich verwende folgenden Code, der klappt auch wunderbar. Nur ist nach der Abfrage die Datei ca 1MB grösser, wie kann ich den Speicher wieder freigeben?

Delphi-Quellcode:

uses
  WinInet;

{...}

function IsConnectedToInternet: Boolean;
var
  dwConnectionTypes: DWORD;
begin
  dwConnectionTypes :=
    INTERNET_CONNECTION_MODEM +
    INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  Result := InternetGetConnectedState(@dwConnectionTypes, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsConnectedToInternet then
    ShowMessage('Connected.')
  else
    ShowMessage('Not Connected.')
end;