Delphi: исключение EoleSysError

Question

Я получаю исключение EoleSysError после выполнения этой строки кода:

FContainer.DoVerb(ovShow);

Когда я открываю несколько текстовых документов в форме, исключение не возникает. Вот картина исключения. По какой-то причине ошибка возникает, когда я хочу открыть файл Excel в форме

Это мой текущий код:

procedure TForm1.FormActivate(Sender: TObject);
var
  FDocument, FWord:Variant;
  FContainer: TOleContainer;
begin
  FContainer := TOleContainer.Create(olecontainer1);
  FContainer.Modified := false;
  FContainer.Parent := olecontainer1;
  FContainer.Align := alClient;
  FContainer.CreateObject('Word.Document', true);
  FDocument := IDispatch(FContainer.OleObject);
  FWord := FDocument.Application;
  FContainer.DoVerb(ovShow);

  // olecontainer2
  FContainer := TOleContainer.Create(olecontainer2);
  FContainer.Modified := false;
  FContainer.Parent := olecontainer2;
  FContainer.Align := alClient;
  FContainer.CreateObject('Excel.Application', true);
  FDocument := IDispatch(FContainer.OleObject);
  FWord := FDocument.Application;
  FContainer.DoVerb(ovShow);

  FContainer := TOleContainer.Create(olecontainer3);
  FContainer.Modified := false;
  FContainer.Parent := olecontainer3;
  FContainer.Align := alClient;
  FContainer.CreateObject('Word.Document', true);
  FDocument := IDispatch(FContainer.OleObject);
  FWord := FDocument.Application;
  FContainer.DoVerb(ovShow);

  FContainer := TOleContainer.Create(olecontainer4);
  FContainer.Modified := false;
  FContainer.Parent := olecontainer4;
  FContainer.Align := alClient;
  FContainer.CreateObject('Excel.Application', true);
  FDocument := IDispatch(FContainer.OleObject);
  FWord := FDocument.Application;
  FContainer.DoVerb(ovShow);


end;