Incluir un TMemo definido en el proyecto, a un hilo

[salvica]

Hola a tod@s l@s forer@s

Estoy intentando crear una animación GIF mediante hilo (D-7/RxLib) en el que se presenten los pasos que va recorriendo en un TMemo definido en el proyecto

Por ahora no consigo quitarme de encima una excepción de memoria (en la línea FMemo := AMemo del procedimiento create del hilo), aunque es igual a la que trae la demo del Delphi (FBox := Box;)

Código Delphi [-]
   TMainLoopThread = class(TThread)
   private
     FAnimacion : TGIFImage; //--------> animación a crear "LOOP_"+FCabecera+".GIF"
     FMemo      : TMemo; //------------> donde se saca los mensajes (definido en TForm)
     FLista     : TStringList; //------> lista dinámica de ficheros GIF
     FCabecera  : string; //-----------> sección del .INI donde están los .GIF
     FDirIni    : string; //-----------> directorio del fichero de configuración
     FDirImg    : string; //-----------> directorio de las imágenes
     FDirOut    : string; //-----------> directorio de salida de la animación
     FMensaje   : string; //-----------> mensaje a incluir en el MEMO
   { ¿no se puede llamar directamente a FMemo.Lines.Addd() ¿ }
     procedure DoSynchronizeMSG;
   { escritura del mensaje en "FMensaje" }
     procedure SetMensaje(const Value: string);
   protected
   { ejecutar el THread }
     procedure Execute; override;
   { llamar a "DoSynchronizeMSG" }
     procedure SincronizarMSG( AMensaje:string );
   { añadir las imágenes a la animación, el código en el hilo hijo }
     procedure EjecutarLOOP( var AAnimacion:TGIFImage; AFrame:integer ); virtual; abstract;
   public
     constructor Create( AMemo:TMemo; ACabIni:string );
     destructor  Destroy; override;
     property    Mensaje   : string read FMensaje write SetMensaje;
   end;
 
   TLoopThread = class(TMainLoopThread)
   private
   protected
   { definimos el código para la creación del LOOP "override" por herencia }
     procedure EjecutarLOOP( var AAnimacion:TGIFImage; AFrame:integer ); override;
   public
   end;

El error se encuentra aquí:

Código Delphi [-]
 constructor TMainLoopThread.Create( AMemo:TMemo; ACabIni:string );
 var
   IniFile : TIniFile;
   Cadena  : string;
   Fichero : string;
 begin
   FMemo   := AMemo; // **************** ERROR DE MEMORIA
   FDirIni := DIR_INI;
   FDirImg := DIR_IMG;
   FDirOut := DIR_OUT;
   .....
 end;

He probado con Assign y también

¿Podeis decirme como se hace?
Gracias adelantadas
salvica