scroll

procedure .scroll(x, y : integer); rmt
var
d : IHTMLDocument2;
w : IHTMLWindow2;
begin
d := self.Document as IHTMLDocument2;
if Assigned(d) then w := d.parentWindow;
if Assigned(w) then w.scroll(x, y);
d := nil;
w := nil;
end;