Consulta sobre el listbox

[roman]

No, no, disculpa, ya te entendí: quieres incluir todos los elementos del listbox en la misma consulta. En ese caso te puede servir esto:

Código Delphi [-]
const
  fmtWhere = '(Columna like "%%%s%%")';

var
  Where: String;
  I: Integer;

begin
  Query1.SQL.Text := 'select * from nombre_tabla'#13;

  Where := '';
  for I := 0 to ListBox1.Count - 1 do
    if Where = ''
      then Where := Format(fmtWhere,[ListBox1.Items[i]])
      else Where := Where + ' or ' + Format(fmtWhere,[ListBox1.Items[i]]);

  if Where <> '' then
    Query1.SQL.Text := Query1.SQL.Text + 'where ' + Where;
end;

Si el ListBox contiene

González
López
Pérez

la consulta quedará así:

Código SQL [-]
select * from nombre_tabla
where (columna like "%González%") or (columna like "%López%") or (columna like "%Pérez%")

// Saludos