I found mistake of javascript.
I changed below.
procedure TForm1.Button5Click(Sender: TObject);
begin
AdvWebBrowser1.ExecuteJavascript('function getH(){return document.documentElement.scrollHeight;};getH();',
procedure (const AValue:string)
begin
ShowMessage(AValue);//=OK
end
);