PaintBoxVCL
Demo Ссылка
думаю чистое извращение что то рисовать в HiAsm кубиками
буду наверно прикручивать васик с функционалом Fast и GDI+.

Да, с цветом надо подшаманить. Про виртулку ничего сказать не могу. Сейчас на работе, тоже Win10x64 Скачал, запустил, работает
Эта демка специально пожата новым UPX lдля примера(взял из Restorator(a))
Вечером не пожатую выложу. Сейчас пытаюсь начать скриптовый движок переписать, а то под Kol очень сложный, там чёрт ногу сломит...
Вот тогда можно будет нарисоваться вдоволь

Да, чёт не то. Попробовал под юзерской учеткой да, крэш на самом деле.
Убрал точки дебага запускается.
Нихера не понял, в Debug весь функционал аналогичен KOL версии
Правда модуль работы с реестром от VCL

вот так идёт чтение позиции, спасибо. Буду разбирается.

procedure TDForm.Load;
var
  hk:HKEY;w:integer;
begin
   hk := RegKeyOpenCreate(HKEY_CURRENT_USER,'Software\HiAsm\Debug');
   with DebugForm do
    begin
     DebugForm.OnClose := _onClose;
     w := RegKeyGetDw(hk,'Left');
     //if w=0 then begin
     //  if Applet.ChildCount=0 then w := 20
     //  else w := Applet.Children[0].Left;
     //end;
     Left := w;
     w := RegKeyGetDw(hk,'Top');
     if w=0 then begin
       if Applet.ChildCount=0 then w := 105
       else w := Applet.Children[0].Height+Applet.Children[0].Top;
     end;
     Top := w;
     w := RegKeyGetDw(hk,'Width');
     //if w=0 then begin
     //  if Applet.ChildCount=0 then w := 400
     //  else w := Applet.Children[0].Width;
     //end;
     Width := w;
     w := RegKeyGetDw(hk,'Height');
     if w=0 then w := 80;
     Height := w;
     //Style := WS_CAPTION or WS_THICKFRAME or WS_SYSMENU;
     //ExStyle := WS_EX_TOOLWINDOW;
     //Border := 0;
     Show;
     Invalidate;
    end;;
   RegKeyClose(hk);
end;

Tе тот модуль смотришь. Смотри Debug.pas а не hiDebug.pas

Ну ведь так если изначально сделано было, при закрытии окна Debug настройки его сохранятся в реестре. Я ведь ещё хотел переделать на INI но посмотрел что юзерской ветке ну хрен с ним думаю, пускай остаётся. Всё поправим, не смертельно.

наконец то сделал VBScriptVCL
Честно говоря уе.... напрочь
Вызвать функцию или процедуру в скрипте проблем нет. А вот получить из скрипта событие с произвольным именем (не как в штатной через объект sys.)  это что-то
Но победа не просто даётся как обычно...
Я просто не завидую тому кто захочет это повторить не зная всех тонкостей (можно разбить всё что угодно)
Ну самое главное технология обкаталась, сейчас можно любые примочки для автоматизации пристраивать будет.
Отличительная особенность в произвольном количестве параметров (не как в штатном dt,idx)
На этом принципе и будет рисовалка для PaintBox
Делать верхние точки как у FormatStr не стал, лишнее это всё. С FormatStr и так можно вызвать функцию или процедуру в потоке
демка Ссылка