Delphi 2010和泛型

我正在尝试做以下事情:

type
  IExemplo<Generic> = interface
    function GetGenerico: Generic;    
  end;

  TClassA<Generic> = class(TComponent, IExemplo<Generic>)
    function GetGenerico: Generic; virtual;
    function GetInterface: IExemplo<Generic>; virtual;
  end;

  TClassB = class(TClassA<string>)
    function GetGenerico: string; override;
    function GetInterface: IExemplo<string>; override;
  end;

但是,在排队的时候

function GetInterface: IExemplo<string>; override;

我收到一个语法错误。

我的目标是 TClassB