Klasse sich selbst in eine abgeleitete konvertieren

[guinnes]

Delphi-Quellcode:

Type 
  TTransporterClass = Class of TTransporter;

class function TTransporter.CreateInstanz(EntryValue : TTransporterClass): TTransporter;
begin
  Result := EntryValue.Create;
end;

Ungetestet, sollte aber gehen