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;
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