Ошибка при работе с TCollection и TCollectionItem

[diman169]

procedure TForm1.Button1Click(Sender: TObject);
var
btf:TBtrFieldDefs;
begin
btf.Add('test', btrChar, 1);
end;

а создавать BTR кто будет? ясень пень access violation

[bloodlines]

Я конечно понимаю, что туплю и т.д. (голова что то сегодня не варит совсем ). Пожалуйста, если можете - сделайте рабочий пример.

[diman169]

procedure TForm1.Button1Click(Sender: TObject);
var
btf:TBtrFieldDefs;
begin
btf := TBtrFieldDefs.Create(owner);
try
btf.Add('test', btrChar, 1);
ShowMessage(btf.FieldName);
finally
btf.free;
end;
end;

Добавлено спустя 18 минут 22 секунды:
ээээ сорри
вместо ShowMessage(btf.FieldName)
надо написать
ShowMessage(btf.Items[0].FieldName);