Delphi + iOS: ¿Cómo declarar la Clase ObjC simple?

¿Cómo puedo declarar un simple ObjC-Class en Delphi / Firemonkey (XE5 o XE6)? Quiero crear una class de delegado de animation con algunos methods de delegado dentro de esta class.

¡Gracias!

Cree una interfaz con sus methods y derive de IObjectiveC. También crea una guía. No estoy publicando uno aquí, para que nadie se sienta tentado a usar el mío.

ISampleDelegate = interface(IObjectiveC) ['{put-your-own-guid-here}'] // <-- Press Ctrl+Shift+G to create your own guid - must be unique for every interface procedure DispatchItem(Sender: Pointer); cdecl; end; 

Cree su implementación de delegado y derive de TOCLocal. Debería implementar su interfaz de delegado.

  TSampleDelegate = class(TOCLocal, ISampleDelegate) private FOwner: TMenuItem; public constructor Create(AOwner: TMenuItem); procedure DispatchItem(Sender: Pointer); cdecl; end; constructor TSampleDelegate.Create(AOwner: TMenuItem); begin inherited Create; FOwner := AOwner; end; 

Crea el delegado:

 FDelegate: ISampleDelegate; FDelegate := TSampleDelegate.Create(Self); 

Asigne su delegado:

 Item.setDelegate(FDelegate); 

Libere a su delegado:

 Item.setDelegate(nil); TNSObject.Wrap((FDelegate as ILocalObject).GetObjectID).release; // don't forget this one! The create constructor calls Alloc in inherited FDelegate := nil;