Fórum Função para a criação de objetos #355849

Oi pessoal.

Minha duvida é a seguinte:

Supondo que eu queira instanciar dois objetos de classes distintas (A e B, das classes ´ac´ e ´bc´), onde estas herdam de uma mesma classe (´c´). Meu código ficaria algo do tipo:

A := ac.Create;
B := bc.Create;
... //Até o infinito...
N := nc.Create;

Contudo, eu gostaria de saber se é possivel criar uma função que me instanciasse estes objetos de uma maneira mais satisfatória...

procedure InstanciaObjetoDistinto(W : C; classe : String);
begin
W := (classe)c.Create; //ou algo do tipo.
end;

PS: Eu sei que é possivel fazer este tipo de coisa se a sua classe herda de TPersistent, mas supondo que ela não herde, é possivel?!