scroll

procedure .scroll(x, y : integer); RMT AION
var RMT AION
d : IHTMLDocument2; RMT
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;