Enviar datos a un formulario web y obtener respuesta

[roman]

Hola,

Sería bueno que pusieras cómo hiciste para encontrar el dato específico en la página de resultados y así tener la solución completa.

// Saludos

[IVAND]

Claro , solo hice algo sencillo,

Use un componente Richedit
y busque dentro de el la cadena que busco , si la encuentro el documento es valido , caso contrario no

procedure TFIng_Fact.Validar_documentoClick(Sender: TObject);
Var
  Encontrado : LongInt;
  Desde, Hasta : Integer;
  Cad : String;
begin
 Cad:='El Documento que usted ha consultado, se encuentra autorizado por el SRI';
  //Ahora la busqueda

  If RichEdit1.SelLength <> 0 then
    Desde := RichEdit1.SelStart + RichEdit1.SelLength
  Else
    Desde := 0;
  Hasta := Length(RichEdit1.Text) - Desde;
  Encontrado := RichEdit1.FindText(Cad, Desde, Hasta, [stMatchCase]);
  If Encontrado <> -1 then
    // ShowMessage('La palabra se encontro en : '+IntToStr(Encontrado))
    Showmessage('Documento autorizado')
  Else
     ShowMessage('Documento no autorizado');
end;

Lo ideal seria tomar los valores que retorna en html y convertirlos en campos en delphi , pero eso aun no se como hacerlo