delphi - Delphi、BEncode を使用して info_hash を取得する方法は?

Question

Delphi を使用して *.torrent ファイルの info_hash を取得したいと考えています。この BEncode デコーダーを試してみました。しかし、デコードするとクレイジーな文字が表示されます。Delphi で動作する他の BEncode デコーダはありますか? または、私が間違っていることはありますか？これは私のコードです:

procedure TForm.Button1Click(Sender: TObject);
var
 be: TBEncoded;
 fs: tfilestream;
 op: string;
begin
 fs := tfilestream.Create('xx.torrent', fmOpenReadWrite);
 be := TBEncoded.Create(fs);

 be.Encode(be.ListData.Items[0].Data, op);
 showmessage(op);

 be.Encode(be.ListData.FindElement('info'), op);
 showmessage(op);
end;