prueba de esta manera
Código Delphi
[-]
consulta_eliminar := 'DELETE FROM T_LINEAS_FACTURAS WHERE FACT_CODIGO = :CODIGO'QRY_ELIMINAR_LINEAS.Close;
QRY_ELIMINAR_LINEAS.Close;
QRY_ELIMINAR_LINEAS.SQL.Clear;
QRY_ELIMINAR_LINEAS.SQL.Add(consulta_eliminar);
QRY_ELIMINAR_LINEAS.PARAMBYNAME('CODIGO').Value:=TBL_LINEAS_FACTURA.FieldByName('FACT_CODIGO').Value ;QRY_ELIMINAR_LINEAS.ExecSQL;
Suerte.