Como puedo iterar un conjunto?

[ospaco69]

Buenas:
Tengo definido este tipo

TImpresoras = (Normal,Epson,Olivetti);

Y necesitaria hacer algo como esto

aTipoImpresion[Normal] := TClaseImpresoraNormal;// Nombre del tipo de objeto que necesito crear

aTipoImpresion[Epson] := Idem anterior;

aTipoImpresion[Olivetti] := Idem anterior;

No doy pie con bola o debo tener algun concepto cruzado. No se si puedo utilizar un array, un tobjectlist, un tcollection,...etc

HELP!!!!