我怎么重载＆lt;和＆gt;？

Question

我尝试为两个类创建一个通用映射。

对于此代码，Free Pascal 3.0编译器显示错误

  

错误：操作员没有超载：＆＃34; TMyTypeA＆＃34; ＆LT; ＆＃34; TMyTypeA＆＃34;

     

错误：操作员没有超载：＆＃34; TMyTypeA＆＃34; ＆GT; ＆＃34; TMyTypeA＆＃34;

unit TestTFPGMap;

{$mode delphi}  

interface

uses
  fgl;

type
  TMyTypeA = class(TObject);
  TMyTypeB = class(TObject);

  TMyMappings = TFPGMap<TMyTypeA, TMyTypeB>;

implementation

end.

我没有找到Free Pascal的工作示例来解决这个问题。我是否必须超载＆gt;和＆lt;运算符，还是有不同的方法来编译这个类？