ТMyBaseObj = class(TObject)
public
  procedure DoPlay(...); virtual; abstract;
end;

TA = class(ТMyBaseObj)
public
  procedure DoPlay(...); override;
end;

procedure TA.DoPlay(...);
begin
  // реализация метода для класса A
end;

TB = class(ТMyBaseObj)
public
  procedure DoPlay(...); override;
end;

procedure TB.DoPlay(...);
begin
  // реализация метода для класса B
end;

TMain = class(TObject)
  FMyObject: ТMyBaseObj;
  procedure DoPlay(..);
end;

procedure TMain.DoPlay(..);
begin
  // вызов функции
  FMyObject.DoPlay(..);
end;