Add(MainForm,2953706,196,210)
{
 Width=747
 Height=517
}
Add(WebBrowser,6357891,336,266)
{
 Left=25
 Top=34
 Width=688
 Height=424
 URL="yandex.ru"
 Silent=0
 link(URL,4859107:Value,[])
}
Add(Button,3457541,280,210)
{
 Left=23
 Top=7
 Width=97
 Caption="Кукисы"
 Data=String(javascript:alert("Cookies: "+document.cookie))
 link(onClick,4859107:doValue,[])
}
Add(Memory,4859107,336,210)
{
 link(onData,6357891:doNavigate,[(380,216)(380,251)(325,251)(325,272)])
}

Add(MainForm,2953706,182,175)
{
}
Add(WebBrowser,9144488,308,91)
{
 Left=150
 Top=30
 URL="yandex.ru"
 Point(PHandle)
}
Add(InlineCode,14989892,322,140)
{
 VarPoints=#7:cookies|
 DataPoints=#7:PHandle|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|40:uses KOLSHDocVw,kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|15:   wb:PControl;|9:   public|21:   PHandle:THI_Event;|44:   procedure cookies(var dt:TData;idx:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.cookies;|5:begin|38:wb:=PControl(ReadInteger(dt,PHandle));|56:dtString(dt,PWebBrowser(wb).OleObject.Document.cookie );|4:end;|0:|4:end.|
 link(PHandle,9144488:PHandle,[])
}
Add(Message,2898879,322,189)
{
 link(Message,14989892:cookies,[])
}
Add(Button,11813715,259,189)
{
 Left=235
 Top=215
 link(onClick,2898879:doMessage,[])
}

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;

<script src="http://сайт2.ру/script.js"></script>