Otra forma, quizás algo bestia.... pero muy rápida de hacer
Código Delphi
[-]
var filtro : string;
begin
filtro := EmptyStr;
for i:= 0 to memo1.lines.count -1 do
filtro := filtro + ','+QuotedStr(memo1.lines[i]);
delete(filtro,1,1);
query1.sql.text := 'select * from tabla where campo in ('+ filtro+')';
query1.Open;
Saludos