[pesi]

Код:

function SetTimeOutJS(Str: String): Integer;
var
  I: Integer;
  S: String;
begin
  S:='setTimeout(''location.replace("vls.php?view=ok")'',';
  I:= Pos(S, Str);
  if I>0 then
  begin
    S:= Copy(Str, I+Length(S), Length(Str));
    I:= Pos(')', S);
    if I>0 then
    begin
      S:= Trim(Copy(S, 1, I-1));
      I:= StrToIntDef(S, -1);
      if I>0 then 
	Result:= I
      else
	Result:= 0;
    end;
  end;
end;

Код:

var
	Otvet: String;
	I: Integer;
begin
	Otvet:=  idhttp1.get(); // Otvet теперь содержит код страницы с ним и работаем
	I:= SetTimeOutJS(Otvet);
	Sleep(I);
end;