FUNCTION CreaObjeto: TClase;
VAR
Objeto: TClase;
BEGIN
Objeto: TClase.Create;
RESULT := Objeto;
END;
PROCEDURE Trabaja (aObjeto: TClase);
BEGIN
aObjeto.HazAlgo;
END;
VAR
ReferenciaObjeto: TClase;
BEGIN
ReferenciaObjeto := CreaObjeto;
Trabaja (ReferenciaObjeto);
ReferenciaObjeto.Free;
END.