[NumLock]

Код:

var
  i: Integer;
  s: String;
begin
  s:='setTimeout(''location.replace("vls.php?view=ok")'',';
  i:=Pos(s, Memo1.Text);
  if i>0 then
  begin
    s:=Copy(Memo1.Text, i+Length(s), Length(Memo1.Text));
    i:=Pos(')', s);
    if i>0 then
    begin
      s:=Trim(Copy(s, 1, i-1));
      i:=StrToIntDef(s, -1);
      if i>0 then Sleep(i);
    end;
  end;
end;

в Memo1 должен находиться код