ResponseFilterBrowser Demo run error in delphi7?

[xtfnpgy]

procedure TResponseFilterBrowserFrm.Chromium1GetResourceResponseFilter( Sender : TObject;
const browser : ICefBrowser;
const frame : ICefFrame;
const request : ICefRequest;
const response : ICefResponse;
out Result : ICefResponseFilter);
begin
if not(FRscCompleted) and (response <> nil) and IsMyResource(request) then
begin
Result := FFilter; //error in here
FFilterInit := True;
CheckResponseHeaders(response);
UpdateRscEncoding(response.MimeType, response.GetHeaderByName('Content-Type'));
end
else
Result := nil;
end;
when I delete the line "Result := FFilter;",it can be run normal.

procedure TResponseFilterBrowserFrm.FormShow(Sender: TObject);
begin
AddressEdt.text := 'https://h5.m.taobao.com/awp/core/detail.htm?id=539891589098';
RscNameEdt.text := 'mtop.taobao.detail.data.get';
CopyScriptBtn.checked := true;
if not(Chromium1.CreateBrowser(CEFWindowParent1)) then Timer1.Enabled := True;
end;