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);
ArrayObjetos.add(nuevoItem);
el acceso:
Código Delphi
[-]
for I := 0 to ArrayObjetos.count-1 do
ShowMessage(TObjeto(ArrayObjetos[i]).getNombreObj);