[mamcx]

Empezado por ethangio

Código Delphi [-]
Query,SQL.Add(' INSERT INTO ventas (folio, fecha, clave, producto) ');
Query.SQL.Add(' VALUES (:folio, :fecha, :clave, roducto) ');
Query.ParamByName('folio').AsInteger      := '1'; 
Query.ParamByName('fecha').AsString      := '2021-08-31';
Query.ParamByName('clave').AsString      := 'AB001';
Query.ParamByName('producto').AsString := 'Azúcar';

Si hago un:

Código Delphi [-]
ShowMessage(Query.SQL.text);

Ahi mismo en tu ejemplo esta la solucion. Recorre los params del objeto y los imprimes "debajo" del sql o haces una substitucion. Un tip si quieres hacer reemplazo: Ordena los nombres de mayor a menos y reemplazas, no lo hagas directo, asi no te saldran problemas si un param es menor a otro (como "var" y "variable")