Paso de Array entre Clases

[droguerman]

puedes crear tu array de objetos usando la funcion varArrayCreate, o usando el tipo TList, veamos como hacerlo con TList;

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

el llenado de los atributos, no de los objetos:

Código Delphi [-]
var
  nuevoItem : TObjeto;
begin
  nuevoItem := TObjeto.create;
  nuevoItem.setNombreObj(EdtNombreObj.Text);  
  nuevoItem.setColor(ColorBox1.Color);  
  nuevoItem.setIcon(MyIcono);
  nuevoItem.setMove(CBoxUP.Checked,CBoxDOWN.Checked,CBoxRIGHT.Checked,CBoxLeft.Checked);
  nuevoItem.setTipoObj(Tipo);
  //añadir al array
  ArrayObjetos.add(nuevoItem);

el acceso:

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