Delphi - varios elementos de listbox a sql

Hola a todos. Tengo un ListBox con la Propiedad Multiselect a true, para que me permita seleccionar varios elementos del componente. Despues lo que quiero hacer es una sql, solo de los elementos seleccionados, pero no se cómo hacerlo, pues tendría que recorrer todo el listbox , y no se como hacer para meterlo en la Select del sql. ¿Me podeis dar una pista? gracias.

Es solo eso "una pista o idea"
var
I:Integer;
ValorString:String;
begin
for I:=0 to ListBox1.Count-1 do
begin

if ListBox1.Selected[I] then
begin
ValorString:=ListBox1.Items.Strings[I];
Query.SQL.Add('and campo=:Parametro);
Query.Pambyname('Paranetro').asstring:=ValorString;
end;

end;
end;
Suerte