override - overload - reintroduce - virtual

[cn-tools]

Hi @ all!

Könnte mir bitte jemand auf die Sprünge helfen bzw. sagen ob das überhaupt funktioniert?

Delphi-Quellcode:

TModelKlasseA = class(TObject)
end;
TModelKlasseB = class(TModelKlasseA)
end;

TKlasseA = class(TObjec)
  function GetMD: TModelKlasseA; virtual; abstract;
end;

TKlasseB = class(TKlasseA)
  function GetMD: TModelKlasseB; ????????
end;

Was muss ich bei TKlasseB.GetMD hinten angeben dass Delphi das richtig macht?
Das Programm soll, wenn TKlasseA.GetMD aufgerufen wird, die Methode TKlasseB.GetMD aufrufen.

thx@all4help
DANKE

lg aus Österreich