Работа с TTread

[IOrist]

В конце процедуры, которую я вынес в дочерний поток (TTread), у меня открывается книга Excel.

procedure TTestTread.Execute;
var ExcelApplication1 :  TExcelApplication;
      ExcelWorkbook1    :  TExcelWorkbook;
      ExcelWorksheet1   :  TExcelWorksheet;
      lcid              :  integer;
begin
CoInitializeEx(NIL, COINIT_APARTMENTTHREADED);
lcid:=LOCALE_USER_DEFAULT;
ExcelWorkbook1:=TExcelWorkbook.Create(nil);
ExcelWorksheet1:=TExcelWorksheet.Create(nil);
ExcelApplication1:=TExcelApplication.Create(nil);
.......................................................
ExcelApplication1.Visible[lcid]:=true;
CoUninitialize;
end;

Дело в том, что эта книга сразуже закрывается.
Наверно это из-за того, что поток при окончании работы разрушается => разрушает свои локальные переменные.

как зделать чтобы эта книга не закрылась?

[Квэнди]

Не завершать поток