Selektierte Items durchgehen und die IDs mit Komma in einem String zusammenhängen.
Alternativ die IDs in eine Liste/Array und dann eine Funktions, welche die Einträge (Integer/String) mit Kommas zu einem Strig verbindet.
z.B. eine TStringList -> Add(IntToStr(Key)) > CommaText
Query.SQL := '... WHERE Key IN (' + KommaListe + ')'
oder
Delphi-Quellcode:
Query.SQL := '
... WHERE Key IN (&KommaListe)';
Query.MacroByName('
KommaListe').Value := KommaListe;