НЕпонятное с 'Invalid variant operation' WinXP или Win7

procedure TMain.ListBox2KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
const  WebSearchId='text';
var SRStr:string;  Data:variant;
begin   (*перенос значения строки в окно ввода страницы в браузере*)
  if (Key = VK_RETURN) then
  SRStr:=(ListBox2.Items[ListBox2.ItemIndex]);

  if not Assigned(Wbbr.Document) then Exit;
  if Wbbr.OleObject.Document.all.tags('FORM').Length <> 0 then
  Data:=Wbbr.Oleobject.Document.GetElementByID(WebSearchId);
  Data.Value:=SRStr;
end;

unit System.Variants;

procedure VarInvalidOp;
begin
  raise EVariantInvalidOpError.Create(SInvalidVarOp);
end;