Tcppwebbrowser и cookies

wchar_t buff[500];
InternetGetCookie(L"сайт",L"__utmv",buff,NULL);

void ClearCookies(UnicodeString User, UnicodeString URL) {
TSearchRec searchResult;
TStringList *fl = new TStringList();
TStringList *fc = new TStringList();
int i, j, pos;
if(FindFirst("C:\\Users\\" + User +
    "\\AppData\\Roaming\\Microsoft\\Windows\\Cookies\\*.txt", faAnyFile,
    searchResult)==0);
fl->Add(searchResult.Name);
while (FindNext(searchResult) == 0) {
    fl->Add(searchResult.Name);
}
FindClose(searchResult);
for (i = 0; i < fl->Count; i++) {
    fc->LoadFromFile("C:\\Users\\" + User +
        "\\AppData\\Roaming\\Microsoft\\Windows\\Cookies\\" + fl->Strings[i]);
    for (j = 0; j < fc->Count; j++) {
        pos = fc->Strings[j].Pos(URL);
        if (pos != 0) {
            DeleteFileW(L"C:\\Users\\" + User +
                "\\AppData\\Roaming\\Microsoft\\Windows\\Cookies\\" +
                fl->Strings[i]);
            break;
        }
    }
 
}
fl->Clear();
DeleteUrlCacheEntryW(("http://"+URL).w_str());   }

Форму2->Открыть();
Стереть->Куки();
Форму2->Закрыть();
Форму2->Открыть();
Стереть->Куки();
Форму2->Закрыть();
Форму2->Открыть();
Стереть->Куки();
Форму2->Закрыть();