Paso de Array entre Clases

[juangiron]

clasee Tobjeto con sus respectivos metodos Set y Get

Código Delphi [-]
type TObjeto = class
  private
   NombreObj:string;
   TipoObj:Integer;
   PosiObjX:Integer;
   posiObjY:Integer;
   MoveUP:Boolean;
   MoveDOWN:Boolean;
   MoveRIGHT:Boolean;
   MoveLEFT:Boolean;
   ColorObj: TColor;
   MyIcono: TIcon;
  public
   procedure setNombreObj(NomObj:String);
   procedure setTipoObj(TipObj: Integer);
   procedure setPosObj(posX:Integer;posY:Integer);
   procedure setMove(UP,DOWN,RIGHT,LEFT:Boolean);
   procedure setIcon(MyIco:TIcon);
   procedure setColor(Color:TColor);
   function getTipoObj():Integer;
   function getNombreObj():string;
end;

en otro clase necesito llenar el arreglo de objetos

Código Delphi [-]
 type
  ArrayObj = Principal.ArrayObj;
type
  TFrmObjDisponibles = class(TForm)
    ListBox1: TListBox;
    BtnCerrar: TButton;
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
   public
     ArrayObjetos : ArrayObj;
     MyObj : TFrmObjeto;

en esta clase quiero llenar ArrayObjetos con los objetos de Tobjetos
lo estoy haciendo asi

Código Delphi [-]
//tamano := high(Myjk.ArrayObjetos)+1;
 SetLength(Myjk.ArrayObjetos,tamano+1);
ArrayObjetos[tamano]:=TObjeto.Create;
ArrayObjetos[Tamano].setNombreObj(EdtNombreObj.Text);
ArrayObjetos[Tamano].setColor(ColorBox1.Color);
ArrayObjetos[Tamano].setIcon(MyIcono);
ArrayObjetos[Tamano].setMove(CBoxUP.Checked,CBoxDOWN.Checked,CBoxRIGHT.Checked,CBoxLeft.Checked);
ArrayObjetos[Tamano].setTipoObj(Tipo);
 inc(tamano);

efectivamente esta llenando el Array (al visualizarlo con un brekpoint)

ahora quiero desde una clase diferente a las 2 visualizar el arreglo

pero al hacer una funcion de pruueba para ver si esta llegando el tamaño de array me muestra -1 (osea que no es la misma referencia al array) o tratar de mostrar el nombre

Código Delphi [-]
for I := 0 to high(ArrayObjetos) do
    ShowMessage(ArrayObjetos[i].getNombreObj);