function Download.GetInetFile(const fURL, FileName: String):boolean;
const
  BufferSize = 1024;
var
  hSession, hURL: HInternet;
  Buffer: array[1..BufferSize] of Byte;
  BufferLen: DWORD;
  f: File;
  sAppName: string;
  r:boolean;
begin
 r:=false;
 if Agent = '' then Agent := 'Server Status Controller, Matej Tomcik Production';
 sAppName := Agent;
 hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_RELOAD) ;
 InternetConnect(hSession,PChar(HostName),INTERNET_DEFAULT_HTTP_PORT,PChar(UserName),PChar(Password),INTERNET_SERVICE_HTTP,INTERNET_FLAG_PASSIVE,0);
 try
  hURL := InternetOpenURL(hSession, PChar(fURL), nil, 0, INTERNET_FLAG_PRAGMA_NOCACHE, 0) ;
  try
   AssignFile(f, FileName) ;
   Rewrite(f,1) ;
   repeat
    InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen) ;
    BlockWrite(f, Buffer, BufferLen);
   until BufferLen = 0;
   CloseFile(f) ;
   r := True;
  finally
   InternetCloseHandle(hURL)
  end
 finally
  InternetCloseHandle(hSession)
 end;
 Result := r;
end;