delphi - TCefStreamReaderRef の使用法

Question

Web ブラウザーが要求するデータをローカル ファイルに置き換えようとしていますが、結果がブラウザーに表示されません。では、適切に使用する方法はTCefStreamReaderRef？

procedure TForm1.Chromium1BeforeResourceLoad(Sender: TObject;
  const browser: ICefBrowser; const request: ICefRequest;
  var redirectUrl: ustring; var resourceStream: ICefStreamReader;
  const response: ICefResponse; loadFlags: Integer; out Result: Boolean);
var
  strm: ICefStreamReader;
begin
  strm := TCefStreamReaderRef.CreateForFile('c:\sometxtfile.txt');
  resourceStream:=strm;

  result:=True;
end;