TEmbeddedWB и TWebBrowser

[divwond]

здравствуйте.
следуя примеру найденому на этом ресурсе столкнулся с ошибкой.знаю что у меня проблема , но самостоятельно не могу решить.
кто может подскажите в чм моя ошибка может быть.
вот собственно код :

procedure TMainForm.DownloadImages(Sender: TObject);
var
   i: Word;
   x: Integer;
   ImageHref, DestFile: string;
   CurrentWB: TEmbeddedWB;
   Document: IHtmlDocument2;
begin
   CurrentWB := mainform.WebBrowser1;
   for i := 0 to CurrentWB.OleObject.Document.Images.Length - 1 do
    begin
     Document := CurrentWB.Document as IHtmlDocument2;
     ImageHref := (Document.Images.Item(i, 0) as IHTMLImgElement).Href;
     x := Pos('images',ImageHref);
     Delete(ImageHref, 1, x-1);
     DestFile := DataDir + '/grab/' + ImageHref;
     DownloadFile('http://zzz.su/' + ImageHref, DestFile);
   end;
end;

код ошибки :

[DCC Error] Main.pas(277): E2010 Incompatible types: 'TEmbeddedWB' and 'TWebBrowser'

[Sciv]

А перевести текст ошибки на русский никак?
Написано: Несовместимые типы TEmbeddedWB и TWebBrowser

И берется, вероятно, отсюда:

   CurrentWB: TEmbeddedWB;
...
CurrentWB := mainform.WebBrowser1;

[divwond]

да собственно это не есть беда.
то что "типы" разные это я осознаю, но код взят из примера.
прочитав пример залез и сюда, все взято из исходников работающих.а что не так тогда никак не пойму.

[Sciv]

Form1.WebBrowser1;

А в каком из Ваших примеров явно указан тип вот этого элемента?

[divwond]

к сожалению в этой теме нигде этого не указал моя вина.
так же в тех ссылках тоже нигде не указано что это за тип.
но следую стандартным названиям используемых компонентов , я решил , что это

WebBrowser1: TWebBrowser;
EmbeddedWB1: TEmbeddedWB;

спасибо за помощь

[Sciv]

Я думаю, Вам лучше через личку пообщаться с автором тех примеров

[divwond]

спасибо и на этом