如何让fmx的组件访问C++中的函数？

#include <iostream>

extern "C" {
    void MyCPlusPlusFunction() {
        std::cout << "Hello from C++!" << std::endl;
    }
}

unit MyComponent;

interface

uses
  FMX.Controls;

type
  TMyComponent = class(TControl)
  public
    procedure CallCPlusPlusFunction; // 调用C++函数的方法
  end;

implementation

procedure TMyComponent.CallCPlusPlusFunction;
external 'MyCPlusPlusLibrary.dll'; // 引用C++函数所在的动态链接库

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyComponent: TMyComponent;
begin
  MyComponent := TMyComponent.Create(Self);
  try
    MyComponent.CallCPlusPlusFunction; // 调用fmx组件的方法来访问C++函数
  finally
    MyComponent.Free;
  end;
end;