如何在delphi中为不同的组件实现一个方法

type
  ICustomMethod = interface
    procedure CustomMethod;
  end;

type
  TComponentA = class(TInterfacedObject, ICustomMethod)
    procedure CustomMethod;
  end;

  TComponentB = class(TInterfacedObject, ICustomMethod)
    procedure CustomMethod;
  end;

procedure TComponentA.CustomMethod;
begin
  // 实现组件A的自定义方法逻辑
end;

procedure TComponentB.CustomMethod;
begin
  // 实现组件B的自定义方法逻辑
end;