tms web core 里面调用pascal 过程。

procedure show(s:string);
begin
  showmessage(s);
end;

procedure TForm3.WebButton1Click(Sender: TObject);
begin
 asm
    // this is pure Javascript code
    $impl.show("你好");
  end;

end;