procedure show(s:string);begin showmessage(s);end;procedure TForm3.WebButton1Click(Sender: TObject);begin asm // this is pure Javascript code $impl.show("你好"); end;end;
tms web core 里面调用pascal 过程。
原文：https://www.cnblogs.com/xalion/p/9454899.html
