procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i: integer;
begin
While true do begin
If GetInetFile('http://site.ru', 'opa.js')=true then Memo1.Lines.LoadFromFile('opa.js');
s:=memo1.Lines.Strings[1];
Delete(s,1,21);
Delete(s,81,136);
WebBrowser1.Navigate(s);
end;
end;