Ayuda conectar form con IdHTTP

[ecfisa]

Hola.

Si no te entiendo mal habías logrado cargar la lista de HWIDs al memo, por lo que prácticamente ya lo tenías solucionado. Solo te faltó revisar si el el HWID existía en la lista obtenida.

Para ejemplificar, uso la dirección de tu mensaje número #4 y algunas palabras de su contenido:

Código Delphi [-]
...
uses  IdHTTP;

(* función que devolvería ProcessorId *)
function  GetHWID: string;
begin
  Result := 'estoy bastante apurado con esto !!!';
end;


function TForm1.TryConnect(const aURL: string; TS: TStrings): Boolean;
begin
   Result := True;
   with TidHTTP.Create(nil) do
   try
    try
      HandleRedirects := True;
      TS.Text := Get(aURL);
      Caption := ResponseText
    except
      on E: Exception do
      begin
        MessageBox(Handle, PChar(E.Message),'Error',MB_ICONERROR+MB_OK);
        Result := False
      end
    end;
  finally
    Free
  end;
end;

procedure TForm1.btnVerificarClick(Sender: TObject);
const
  URL_MSG = 'http://www.clubdelphi.com/foros/showpost.php?p=462058&postcount=4';
var
  TS: TStrings;
begin
  TS := TStringList.Create;
  try
    if TryConnect(URL_MSG, TS) then
      if Pos(GetHWID, TS.Text) = 0 then
        raise Exception.Create('Error: HWID no identificado');
    ShowMessage('Form2 continua -> "Abre un Form"');
    ...
  finally
    TS.Free;
  end;
end;

Si cambias algo del texto que devuelve la función GetHWID no será encontrado y lanzará la excepción.

Saludos