Название вкладки в браузере Delphi. возникает ошибка "Invalid class typecast"

[Жора1111]

Уважаемые форумчане, подскажите из-за чего в данной процедуре возникает ошибка "Invalid class typecast"?

procedure TForm1.WebDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  ((TWinControl(Sender as TWebBrowser).Parent) as TTabSheet).Caption :=
  ((TWebBrowser(Sender).document as IHTMLDocument2).title);
end;

Пожалуйста, оформляйте Ваш код согласно правилам.

[Вадим Мошев]

Invalid class typecast - Это ошибка преобразования типов.