C++Builder Community Ed Test - Calling Delphi source file

//--------------------------
// File1.cpp
//--------------------------
#pragma hdrstop
#pragma argsused

#include <iostream>
#include <testdelphi.hpp>

int _main()
{
    std::cout << "\n" << "C++ here. \n\n";
    output();
    std::cout << "C++ here. \n\n";
    getchar();
    return 0;
}

//--------------------------
// testdelphi.pas
//--------------------------
unit testdelphi;
interface
    procedure output;
implementation
    procedure output;
    begin
      writeln('Delphi');  writeln;
    end;
end.

//--------------------------
// testdelphi.hpp
//--------------------------

// CodeGear C++Builder
// Copyright (c) 1995, 2018 by Embarcadero Technologies, Inc.
// All rights reserved

// (DO NOT EDIT: machine generated header) 'testdelphi.pas' rev: 33.00 (Windows)

#ifndef TestdelphiHPP
#define TestdelphiHPP

#pragma delphiheader begin
#pragma option push
#pragma option -w-      // All warnings off
#pragma option -Vx      // Zero-length empty class member
#pragma pack(push,8)

#include <System.hpp>
#include <SysInit.hpp>

//-- user supplied -----------------------------------------------------------
namespace Testdelphi
{
//-- forward type declarations -----------------------------------------------
//-- type declarations -------------------------------------------------------
//-- var, const, procedure ---------------------------------------------------
extern DELPHI_PACKAGE void __fastcall output();
}   /* namespace Testdelphi */

#if !defined(DELPHIHEADER_NO_IMPLICIT_NAMESPACE_USE) && !defined(NO_USING_NAMESPACE_TESTDELPHI)
using namespace Testdelphi;
#endif
#pragma pack(pop)
#pragma option pop

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif  // TestdelphiHPP

//--------------------------