Du solltest in der Basisklasse die funktion ohne virtual definieren
Delphi-Quellcode:
...
function NewJob: TJob;
...
in der abgeleiteten Klasse definierst du NewJob einfach neu
Delphi-Quellcode:
...
function NewJob: TBackupJob;
...
und implementierst sie so
Delphi-Quellcode:
function NewJob: TBackupJob;
begin
Result:= TBackupJob(inherited add);
end;
"Wer seinem Computer Mist erzählt, muss immer damit rechnen..." (unbekannt)
"Der Computer rechnet damit, dass der Mensch denkt..." (auch unbekannt)
mein blog