[M.A.D.M.A.N.]

Если надо такое удаление, то тогда так:

Код:

dm.ado_q.SQL.Add('where table1_id in ('+memo1.text+')');

Но если большое перечисление будет, база может выдать ошибку.
Для грида:

Код:

strngrd1.Selection

Там границы выделенной области, из нее можно достать номера строк.

Заместо мемо можно использовать StringList, просто в качестве delimitter`а поставить запятую.