Wert von OleVariant überprüfen?

[omata]

Moin,

das geht so...

Delphi-Quellcode:

procedure TForm.ButtonClick(Sender: TObject);
var x, Document:Variant;
begin
  Document:=WebBrowser.Document;
  x:=Document.All.Item('name');
  if Assigned(TVarData(x).VPointer) then
    x.Value := 'jetzt kann ich drauf zugreifen';
end;

MfG
Thorsten