Ayuda con WebBrowser
 

Buenas espero que me ayuden o me orienten muy novata
Lo que yo tengo es el código fuente de una página view-source:http://dragonbound.es/hackpararobarfb/ lo que me interesa es la linea 42. Lo normal la linea 42 está así:


Pero de un momento a otro actualizan la página e insertan un link(varía los link, son diferentes en cada actualización), de esta manera:



Lo que necesito es que el código fuente de la página se actualicé cada 1 segundo y una vez que inserten el link(en el código fuente de la página) aparezca en un Edit(el link marcado de la segunda imagen) y abra dicho link automaticamente( o manualmente con un button) con el navegador por defecto que en este caso tengo chrome

(1) Tendrás que estar constantemente recargando la página para obtener el código fuente.
(2) Realizar un "parse" para obtener el link de la línea citada.
(3) Si ha cambiado respecto al último obtenido, copiarlo al edit
(4) Abrir el navegador con el link del Edit utilizando ShellExecute o WinExec.

Dicho esto, me parece un sistema "frágil".
Por otro lado, recargar la página cada segundo te va a provocar sobrecarga.

Has explicado lo que necesitas, pero no das una visión global del problema. Tal vez exista otra manera más fácil o directa de atacar el problema.

NOTA: Revisa la guía de estilo e intenta ser más descriptiva con los títulos de los mensajes.

Buenas, aquí logré capturar el código fuente de la web y hacer un parse y ponerlo en un Label, pero tengo una duda: el problema que tengo que la PRIMERA VEZ que lo muestra en el Memo1 lo hace Corrrectamente, pero de la Siguiente en Adelante NO REFRESCA el Contenido, si lo hago MANUALMENTE de ver el contenido del Archivo desde chrome veo el Contenido correctamente , de la segunda en adelante siempre muestra el contenido de la PRIMERA VEZ que 'Descargo' el código fuente, o tengo que abrir y cerrar el programa para que me muestre el nuevo código fuente. Esto quisiera hacerlo con un timer. gracias

Código Delphi [-]
function SimpleParse(MainString, BeginString, EndString: string): string;
var
 PosBeginString: integer;
 PosEndString: integer;
begin
 PosBeginString := Pos(BeginString, MainString) + Length(BeginString);
 PosEndString := Pos(EndString, MainString);
  Result := Copy(MainString, PosBeginString, PosEndString - PosBeginString);
end;
//end parsing

procedure TForm1.Button1Click(Sender: TObject);
var
  http: TIdHttp;
  params: TStrings;
  respuesta: string;
begin
  http := TIdHTTP.Create(Self);
  params := TStringList.Create;
  try
    params.Add('variable1=valor1');
    params.Add('variable2=valor2');
    respuesta := http.Post('http://ruleta.dragonbound.es', params);
    Memo1.Text := (respuesta);
  finally
    http.Free;
    params.Free;
  end;
  Label1.Caption := simpleparse(memo1.lines.text,'class="popup_ok" href="','">end;

end.