Нужна помощ в Delphi 7 c WebBrowser

Короче говоря на форме есть компонент WebBrowser, когда я через него перехожу на страницу с флеш игрой(на сайте vk.com) она не загружаетса, если я беру CCLeaner и чищу все куки и кэш с интернет експлорера и на вкладке приложения в поле мультимедиа отмечаю галочкой "Adobe Flash Player" то в WebBrowser игра загружаетса 1-2 раза и потом надо заново все очищать CCLeaner-ом.
Я думаю это может быть изза того что я не коректно завершаю работу с WebBrowser.

И вот вопрос как ето исправить??
Буду благодарен за любые идеи.

 

попробуй чистить кэш с помощью данной процедуры:

Code:

procedure EmptyIECache;
Var
    lpEntryInfo : PInternetCacheEntryInfo;
    hCacheDir   : LongWord;
    dwEntrySize : LongWord;
    dwLastError : LongWord;
Begin
    dwEntrySize := 0;
    FindFirstUrlCacheEntry( NIL, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
    GetMem( lpEntryInfo, dwEntrySize );
    hCacheDir := FindFirstUrlCacheEntry( NIL, lpEntryInfo^, dwEntrySize );
    If ( hCacheDir <> 0 ) Then
        DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
    FreeMem( lpEntryInfo );
    Repeat
        dwEntrySize := 0;
        FindNextUrlCacheEntry( hCacheDir, TInternetCacheEntryInfo( NIL^ ), dwEntrySize );
        dwLastError := GetLastError();
        If ( GetLastError = ERROR_INSUFFICIENT_BUFFER ) Then Begin
            GetMem( lpEntryInfo, dwEntrySize );
            If ( FindNextUrlCacheEntry( hCacheDir, lpEntryInfo^, dwEntrySize ) ) Then
                DeleteUrlCacheEntry( lpEntryInfo^.lpszSourceUrlName );
            FreeMem(lpEntryInfo);
        End;
    Until ( dwLastError = ERROR_NO_MORE_ITEMS );
End;

 

Большое спасибо