Здраствуйте не подскажите как перевести в Borland С++ 5 CppWebBrowser в режим редактирования в дельфях нашел так

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
CurrentWB: IWebBrowser;
begin
CurrentWB := pDisp as IWebBrowser;
(CurrentWB.Document as IHTMLDocument2).DesignMode := 'On';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://wp.netscape.com/assist/net_sites/example1-F.html')
end;

делал в Borland С++ 5
void __fastcall TForm1::CppWebBrowser1DocumentComplete(TObject *Sender,
LPDISPATCH pDisp, TVariant *URL)
{

IWebBrowser *CurrentWB;
IHTMLDocument2 *pDoc;
CurrentWB = (IWebBrowser*)& pDisp;
((IHTMLDocument2*)CurrentWB->Document)->put_designMode(L"on");

} Компилируется нормально но при выполнении процедуры вылетает ошибка 'Access violation at address '

Спасибо