function GenerateTSCAFile(id_document:Integer):boolean;
var
  i:integer;
  filestream:TMemoryStream;
  FExcelApp: OleVariant;

  function StreamToExcel(const Stream: TMemoryStream):OleVariant;
  var
    DataHandle: HGLOBAL;
    Buffer: Pointer;
    FLockBytes: ILockBytes;
    FStorage: IStorage;
    FOleObject: IOleObject;
  begin
    DataHandle := GlobalAlloc(GMEM_MOVEABLE, Stream.Size);
    if DataHandle = 0 then OutOfMemoryError;

    try
      Buffer := GlobalLock(DataHandle);
      try
        Stream.Read(Buffer^, Stream.Size);
      finally
        GlobalUnlock(DataHandle);
      end;
      CreateILockBytesOnHGlobal(DataHandle, True, FLockBytes);
      OleCheck(StgOpenStorageOnILockBytes(FLockBytes, nil, STGM_READWRITE or STGM_SHARE_EXCLUSIVE, nil, 0, FStorage));
      result := CreateOleObject('Excel.Application');
      result.Application.EnableEvents:=true;
      result.Visible:=false;
      OleCheck(OleLoad(FStorage, IOleObject, nil, FOleObject));
    except
      VarClear(result);
      if (DataHandle <> 0)
        then GlobalFree(DataHandle);
      if (FOleObject <> nil)
        then FOleObject.Close(OLECLOSE_NOSAVE);
      raise;
    end;
  end;

begin
  try
    filestream := TMemoryStream.Create;
    filestream.Clear;

    try
      If MainDM.GetSystemFileFormBase(1,filestream) then begin
        FExcelApp := StreamToExcel(filestream);
        if ActivateSheet(FExcelApp,1,1) then begin
          ShowMessage(VarToStr(FExcelApp.ActiveSheet.Range['B23']));
        end;
      end;
    except
      on E : Exception do begin
        Showmessage(E.Message);
      end;
    end;
  finally
    FreeAndNil(filestream);

    if not VarIsEmpty(FExcelApp) then begin
      for i := 1 to FExcelApp.Workbooks.Count do begin
        FExcelApp.WorkBooks[i].Close;
      end;

      FExcelApp.Quit;
      VarClear(FExcelApp);
    end;
  end;

end;