str_SQL := str_SQL + 'FROM fj13_detail ' +
    ' WHERE unit_id LIKE ":id%" ' +
    ' AND recno=0 ' +
    ' GROUP BY recno ' +
    ';';
    dm.ado_qr.Close;
    dm.ado_qr.SQL.Clear;
    dm.ado_qr.SQL.Add(str_SQL);
    dm.ado_qr.Parameters.ParamByName('id').Value := str_unit_id;