[icWasya]

делается так

Код:

TBase = CLASS(TPersistent)
...
constructor Create;virtual;
END;

//если будет нетривиальный конструктор,то
TDesc2 = CLASS(TBase)
...
constructor Create;override;
END;

procedure(p_myvar : TBase);
var
  myclass  : TBaseClass;
  myvar  : TBase;
begin
  myclass  := p_myvar.ClassType;
  myvar:=myclass.Create();
end;