Método en profundidad (7) -Resultado

// Punto 7: No solo eso, Result también tiene una 
función de uso más flexible MyFun (b: Byte): Char;
 begin 
  // Result: = Char (b); {por supuesto podemos escribir así} 
  Byte (Result): = b ;    { Esto está bien } 
final ; 

{ Existe tal función en el sistema } 
función TObject.ClassType: TClass;
 begin 
  Pointer (Result): = PPointer (Self) ^;
 end ;