Probleme mit virtuellem Kostruktor

[jim_raynor]

Result := TApeType.Create;

ist falsch.

Du solltest statt dessen:

Result := ApeType.Create;

schreiben.