Отобразить записи в Gride

[Aleksandr]

В ListBox указан список организаций. Как отобразить в DBGrid только те которые имеются в ListBox. Вот мой код, но он работает если в ListBox только одна запись.

var
k:integer;
s,s1:string;
begin
for k := 0 to RzListBox2.Items.Count - 1 do
begin
 s:=RzListBox2.Items.Strings[k]+',';
 s1:=s1+s;
 end;
 if S1[Length(S1)] = ',' then
Delete(S1, Length(S1), 1);
ShowMessage(s1);
zQuery2.SQL.Clear;
zQuery2.SQL.Add ('select * from organization where name='+ quotedstr(S1) );
zQuery2.Open;

[Аватар]

select * from organization where name in ('наимен1','наимен2',...)

[Toxa]

запрос не верен

zQuery2.SQL.Add ('select * from organization where name in ('+ quotedstr(S1) +')');

долго я отвечал, Аватар опередил

[Aleksandr]

Аватар спасибо. Тормазнул. Начал уже делать

s:='where Location='+quotedstr(RzListBox2.Items.Strings[k])+',';

[Aleksandr]

Не выводит. Тоже самое, только для одной записи ListBox.

[Aleksandr]

Всем спасибо получилось.