Problemas con TStringList

[pdimasi2008]

Bueno ya se por donde viene el problema...lastima que no se como solucionarlo todavia.... resulta que me olvide de comentar que cuando el usuario ingresa un codigo a borrar el dbgrid trae los datos de dos tablas (osea se realiza una union de dos tablas una de historico y otra de actual) bien el problema viene por ahy no se bien como hacer esto ya que el usuario puede elejir un registro de la tabla actual y otro de la tabla historico.Trate de hacer lo siguiente pero la verdad no tengo mucha idea...

Código Delphi [-]
sql:='delete from MANUALESPRODUCTO where = ' + QuotedStr((lista.Objects[w] as TManualFactory).CodigoM) join HISTORICOMANUALES where(HISTORICOMANUALES.PLNCODIGO = MANUALESPRODUCTO.PLN_CODIGO)'