[roman]

Código Delphi [-]
var
  Valor: String;

begin
  Query.Sql.Text := 'select * from nombre_tabla where Columna like :valor';
  Valor := ListBox.Items[ListBox.ItemIndex];
  Query.ParamByName('valor').AsString := '%' + Valor +'%';
  Query.Open;
end;

// Saludos