Du kannst die Methoden aber auch in der Basisklasse "vorbereiten", indem du sie virtuell + abstract deklarierst:
Delphi-Quellcode:
type
TInputSource = class(TPersistent)
procedure Foo(); virtual; abstract;
end;
TSourceNrCommRS232 = class(TInputSource)
procedure Foo(); override;
end;
Wenn du dann auf
FDeviceSource.Foo();
zugreifst wird die Methode aufgerufen, mit der FDeviceSource erzeugt wurde.