Hi, All
Подскажите, please, как создать такое свойство (property),к которому можно обращатся так:

pr['1'].x:=1;
pr['2'].y:=pr['1'].x/10;

и т.п.
Пробовал так:

type
TData=packed record
 x,y:single;
 s:string;
end;

TDataEdit=class(TComponent)
...........
private
 procedure SetData(title:string; value:TData);
 function GetData(title:string):TData;
public
 property Dat[title:string]:TData read GetData write SetData;

end;

Проблема в том, что при попытке присваивания (например, DataEdit.Dat['1'].x:=10 при компиляции выскакивает сообщение Cannot assign left side.

Заранее спасибо всем откликнувшимся.