Delphi ,Excel и ADO вывод таблиц

[Екатерина Долженкова]

Здравствуйте
DataModule -dm
TADODataset -set
TADODconnection -con
Listbox-box
Пробую технологи ADO для Excel
В процедуре Box2 при выборе нескольких элементов они должны выводиться в memo и в StringGrid одновременно.
Выводятся сразу все или ничего помогите написать условие Box2.Selected[i], которое возвращает true, если на текущий момент i-тая опция выделена для вывода толька выбранных элементов в memo и в StringGrid который не изменяет размеры ColCount и RowCount и вообще ничего не выводит.Делал условие if Box2.Selected[i] = true then но ин выводит только первый нажатый элемент независимо выбрано несколько элементов или просто переход по элементам
Рабочий код с момента вывода в Memo всего независимо от выбора элемента.

procedure TForm1.Box1Click(Sender: TObject);var i: Integer; s: string;beginwith dm do beginset1.Close;set1.CommandText:='SELECT * FROM ['+Box1.Items[Box1.ItemIndex]+']';set1.Open;box2.Items:=set1.FieldList; for i:=0 to dg.FieldCount-1 do dg.Columns[i].Width:=59;memo1.Clear;set1.First; end;end;  procedure TForm1.Box2Click(Sender: TObject);var i: Integer; s: string;beginwith dm do beginwhile not set1.Eof do begins:='';  for i:=0 to set1.FieldCount-1 do s:=s+set1.Fields.Fields[i].AsString+chr(9);memo1.Lines.Add(s); set1.Next;end;end;end;

[ur_naz]

Для начала отформатируй код и напиши комментарии, авось что-нибудь прояснится