Открытие док-тов, выбранных в ListBox, в OLEСontainer (Delphi)

[spirit_102]

Здравствуйте! Подскажите, как изменить код, чтобы выбранные документы Word открывались в OLEContainer'е. Проблема в том, что я не могу понять, какое должно быть условие для использования только 1 контейнера для любого док-та из списка в ListBoxe'e. Ну и как прицепить container к listbox вообще(
Открытие Word выглядит так:

procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=ListBox1.ItemIndex;
ShellExecute(0, nil, Pchar(workdir+ComboBox1.Text+'\'+ListBox1.Items[n]), nil, nil, SW_SHOWNORMAL);
end;