RTL custom interface types as records, added callbacks (marshalled using virtual interfaces)

ASTPlayground/MainForm.fmx

@@ -245,15 +245,15 @@ object Form1: TForm1
     Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
     DataDetectorTypes = []
     Lines.Strings = (
-      '(do '
-      '  (defmacro test [body] `(fn [] ~body ))'
-      '  (defmacro test2 [body] `(fn [] ~body ))'
-      '  (test2 "hi")'
-      ''
-      '  (def debug-mode :true)'
+      '(do'
+      '  ;; Broker mit 10.000 Startkapital erstellen'
+      '  (def broker (create-broker 10000.0))'
       '  '
-      '  (stopwatch '
-      '     (if debug-mode (print "Debug an")))'
+      '  ;; Aktien kaufen: 10 St'#252'ck von "AAPL" zu 150.0'
+      '  ((.Buy broker) "AAPL" 10 150.0)'
+      '  ((.Buy broker) "MSFT" 5 50.0)'
+      '  '
+      '  ((.ListPositions broker) (fn [t] (print t)))'
       ')')
     StyledSettings = [Size, Style, FontColor]
     TextSettings.Font.Family = 'Consolas'