Opret Excel fil - proces excel.exe driller

Hej
Jeg har lavet noget tilsvarende med Excel og jeg afslutter med følgende 3 linier, så går det ok.   
Excel.WorkBooks.Close;
Excel.Quit;
Excel:=Unassigned;

Samme fejl!?

Mit 'startkode':
    xlApp,
    ActiveWorkbook,
    ActiveWorksheet : OleVariant;

::

Function TMSExcel.Connect : Boolean;
Var
  App : IUnknown;
begin
  Result := False;
  Try
    if not Succeeded(GetActiveObject(StringToGUID('{00024500-0000-0000-C000-000000000046}'), nil, App)) then
      xlApp := CreateOleObject('Excel.Application')
    else
      xlApp := App As IDispatch;
    if VarIsEmpty(xlApp) then
      Raise EMSExcelException.Create(SExcelNotFound);

    xlApp.Visible := False;
    xlApp.SheetsInNewWorkbook := 1;
    xlApp.DisplayAlerts := FDisplayAlerts;
    AddWorkbook;
    ActiveWorksheet := ActiveWorkbook.ActiveSheet;
    ActiveWorksheet.Activate;
    Result := True;
  Except
    on E:Exception do
    begin
      ErrorMessageDialog('TMSExcel.Connect', E.Message);
    end;
  end;
end;

Mit 'slutkode':
Function TMSExcel.Disconnect : Boolean;
begin
  Result := True;
  Try
    if not VarIsEmpty(xlApp) then
    begin
      if xlApp.Visible then
      begin
        ScreenUpdate(False);
        xlApp.Visible := True;
        ScreenUpdate(True);
      end;
//      xlApp.Quit;
//      xlApp.Disconnect;
//      VarClear(xlApp);
xlApp.WorkBooks.Close;
xlApp.Quit;
xlApp:=Unassigned;
    end;
  Except
    on E:Exception do
    begin
      Result := False;
      ErrorMessageDialog('TMSExcel.Disconnect', E.Message);
    end;
  end;
end;

Der var ikke ryddet pænt op!
VarClear skulle kaldes for alle ole-variable!
Spørgsmål lukkes