Debug Delphi by talking to your AI agent.

You: Set a breakpoint at TForm1.btnComputeClick in MainForm.pas, launch bin\myapp.exe, and stop when it hits.

Agent: Setting the BP, launching, then waiting for the loader BP and the click handler.

tool: set_breakpoint(source="MainForm.pas", line=128)

→ {"ok":true, "bp_id":1, "resolved":"TForm1.btnComputeClick+0x0"}

tool: launch(exe="bin\\myapp.exe")

tool: continue()  (past the loader BP)

…you click the Compute button…

tool: events(timeout=30)

→ {"event":"breakpoint_hit", "bp_id":1, "tid":7892, ...}

Agent: Hit. Paused in MainForm.pas:128. Want me to step into it, inspect Self, or just continue?

You: What are the locals here?

Agent: Reading the params + stack-locals from the TD32 section.

tool: inspect_locals()

→ {"ok":true, "function_symbol":"MainForm.TForm1.btnComputeClick", "auto_walked_frames":0, "locals":[{"name":"Self","location":"reg","reg_id":0,...}, {"name":"Sender","location":"reg","reg_id":1,...}], "version_warning":null}

Agent: Self in RCX (this is a TForm1 method), Sender in RDX (the button object). Want me to chase Sender.Caption via evaluate?

If the target wasn't built with -V ("Place debug information in EXE" in the Project Options), the response carries error.message:"no_debug_section" with a fallback_hint; pivot to get_self + inspect_object for what you can still see.

You: Run myapp.exe and tell me about every exception that fires — even first-chance ones.

Agent: Setting a catch-all on kernelbase!RaiseException, enabling first-chance reporting, then launching.

tool: set_breakpoint(kind="symbol", symbol="kernelbase!RaiseException")

tool: set_exception_filter(first_chance=true)

tool: launch(exe="bin\\myapp.exe") & continue()

tool: events(timeout=60, filter="exception")

→ {"event":"exception", "class":"EConvertError", "message":"\"abc\" is not a valid integer", ...}

   Frames: SysUtils.pas:18432 ConvertErrorFmt+0x4f → MainForm.pas:201 TForm1.OnEditChange+0x12

Agent: First-chance EConvertError from OnEditChange — the user typed non-numeric text into the value field. Want me to inspect the exception object or the form's state?

You: Launch myapp.exe, wait for the main form to paint, screenshot it and describe what you see.

Agent: Launching, then capturing once the message pump's flushed a paint cycle.

tool: launch(exe="bin\\myapp.exe") & continue()

tool: get_main_form()

→ {"hwnd":"0x3fe00d6", "class":"TFormMain", "title":"My App"}

tool: capture_window(hwnd="0x3fe00d6")

→ PNG, 800×600, 47 KB

Agent: The main form is up. Top-left has a menu bar (File / Edit / View / Help). Beneath: a toolbar with New, Open, Save, Compute buttons. Centre is split — left pane is a tree of "Projects" with one root node "MyProject", right pane is empty with placeholder text "Select a project to begin". Status bar at the bottom reads "Ready · 0 items". No modal dialogs visible.

You: I'll demo the bug myself. Start recording my clicks and keys; I'll reproduce, then tell me which control received what.

Agent: Starting the spy. Reproduce the bug now — I'm listening.

tool: spy(action="start")

…you reproduce the bug, then say "done"…

tool: spy(action="stop")

→ 7 events captured

Agent: Here's what you did:

1. click Form1.PageControl1.tabExport.btnRunExport (left, 142,38)
2. key  Form1.PageControl1.tabExport.edtPath: "C:\\reports\\test.csv"
3. click Form1.PageControl1.tabExport.cboFormat (drop-down)
4. click [TListBoxItem 'CSV']
5. click Form1.PageControl1.tabExport.chkOverwrite
6. click Form1.PageControl1.tabExport.btnRunExport
7. crash — daemon emitted exception event

Agent: The crash fires after the second click on btnRunExport with overwrite enabled. I'll set a BP on the export handler and re-run from your trace — want me to do that now?

You: Launch the app, click Quit, then make sure the process is actually gone.

Agent: Launching, clicking Quit, polling until the PID disappears.

tool: launch(exe="bin\\myapp.exe") & continue()

tool: find_vcl_for_hwnd(name="btnQuit")

→ Form1.pnlBottom.btnQuit at hwnd 0x4002a8

tool: click_at(hwnd="0x4002a8", button="left")

tool: events(timeout=10, filter="exit_process")

→ {"event":"exit_process", "exit_code":0}

tool: list_processes(filter="myapp.exe")

→ []

Agent: Clean exit, code 0, no orphaned process. Done.