类接口是否支持成员变量实现？类似于Delphi的implementation？

type
IMyInterface = interface
procedure P1;
procedure P2;
end;

TMyClass = class(TObject, IMyInterface)
FMyInterface: IMyInterface;
property MyInterface: IMyInterface read FMyInterface implements IMyInterface;
end;