TWebBrowser if then Problem

[klaus9]

Habe jetzt folgenden Code

procedure TForm1.Button65Click(Sender: TObject);
begin

if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end;

[Fehler] Unit1versuch.pas(1288): Undefinierter Bezeichner: 'VarIsNull'

ich weiß nur nicht genau was ich als bezeichner einfügen soll.

function VarIsNull hatte ich im Netz gelesen, wenn ich es davor packe startet es leider auch nicht richtig