delphi - Delphi XE2 のメソッド FieldByName のモック

Question

クラスを開発していて、それに含まれるデータセット (TTable) をモックしようとしています。

データセットのインターフェイスを作成した後、メソッド FieldByname のモックの開発を開始しました。

type
  IDataSet = interface
  ...
    function FieldByName(const Name: string): TField;
  ...
  end;

  TMockDataSet = class(TInterfacedObject, IDataSet)
    ...
    function FieldByName(const Name: string): TField;
    ...
  end;

次の実装を試しましたが、実行時エラーが発生します。

 function TMockDataSet.FieldByName(const Name: string): TField;
  var
    f: TCurrencyField;
  begin
    f := TCurrencyField.Create(nil);
    f.AsCurrency := 1; // runtime error
    result := f;
  end;

誰もこれを解決する方法を知っていますか?