REGISTERS and MEMORY cover what the CPU window shows, except the disassembly.
The ToolsAPI has nothing for disassembly, in Delphi 7 and 13 alike. The code pane of the CPU window is a TDisassemblerView, which is drawn by hand, so there is no text to read either.
It publishes OnDisassemble (and OnGetLabel, OnGetNextAddr, ...). Those might be hooked the way TREETEXT hooks a virtual tree's OnGetText: put a handler with the matching signature in front, make the control repaint, and collect what it asks for. That needs the event's declaration, which has not been looked at. Not tried.
Disassembling the bytes ourselves is far too much work for this.