Left side cannot be assigned to в Record

[Человек_Борща]

Есть обьект:

 Type
    TmyObject=Class(TObject)
     public
     myData:TmyRecord;

Где TmyRecord это типизированная структура:

type
  TmyRecord = record
  {
 over 9000 параметров разных типов
  }
  end;

хранящая данные этого обьекта.

Так же есть контейнер этих обьектов:

type
  TmyObjectsList=Class(TobjectList)
   private
     function GetObject(Indx:integer):TmyObject;
   public
     property Objects[indx:integer]:TmyObject read GetObject;
    end;


function TmyObjectsList.GetObject(Indx:integer):TmyObject;
begin
Result:=(Items[Indx] as TmyObject);
end;

Контейнер этих обьектов имеет свойтво Objects которое возвращает нужный элемент. И таким образом можно получить доступ к TmyObject и изменять его параметры в любых направлениях, например:

var
  in:<type of var>; //переменная любого типа
  out:<type of var>;
  i:integer;
begin
 For i:=0 to myObjectsList.Count -1 do
 begin
//передача данных в переменную из TMyRecord 
out:=myObjectsList.Objects[i].myData.<type of var>;

//передача данных из переменной в TMyRecord 
myObjectsList.Objects[i].myData.<type of var>:=in;
 end;
end;

так вот я хочу не писать каждый раз вот такой код:
myObjectsList.Objects[i].myData.<type of var>:=in;

а через свойство делать чтение/запись в tMyRecord;

Чтение благо получилось:

type
  TmyObjectsList=Class(TobjectList)
   private
     function GetObject(Indx:integer):TmyObject;
     function GetObjectData(Indx:integer):TmyRecord;
   public
     property Objects[indx:integer]:TmyObject read GetObject;
     Property ObjectsData[Indx:integer]:TmyRecord Read GetObjectsData;
    end;


function TmyObjectsList.GetObject(Indx:integer):TmyObject;
begin
Result:=(Items[Indx] as TmyObject);
end;

function TmyObjectsList.GetObjectData(Indx:integer):TmyRecord;
begin
Result:=Objects[Indx].myData;
end;

Как реализовать запись?

[Человек_Борща]

Есть у кого-нибудь какие-нибудь соображения о том, как решить проблему?

[JUDAS]

 property Objects[indx:integer]:TmyObject read SetObject;

procedure TmyObjectsList.SetObject(Indx:integer; const Value:TmyObject);
begin
  if Indx<lenGth(Items) then
  Move(Value, Items[Indx], SizeOf(TmyObject));
end;

Если нужно записывать всю запись и отдельные поля одновременно в разных частях кода, советую не морочится из свойствами. Обьяви массив в секции public и производи запись/чтение напрямую

[Человек_Борща]

Нет и ещё раз нет.. не так вы меня понимаете..
вот то, что мне нужно было:
http://clubs.ya.ru/46116860184273880...l?item_no=1154

злоебучие указатели....