Bloodguy
Twitter : @nicehide

uses
  IdHTTP;



procedure TForm1.Button1Click(Sender: TObject);
const
  URL = 'http://어떤사이트/A.HTML';

  찾을단어 = '찾을단어';

var
  IdHTTP1: TIdHTTP;
  sList: TStringList;
  i: Integer;

begin
  IdHTTP1:=TIdHTTP.Create(nil);
  sList:=TStringList.Create;
  try
    sList.Text:=IdHTTP1.Get(URL);
    for i:=0 to sList.Count-1 do begin
      if Pos(찾을단어, sList[i])>0 then Memo1.Lines.Add(sList[i]);
    end;

  finally
    FreeAndNil(IdHTTP1);
    FreeAndNil(sList);
  end;
end;