TList. Ошибка Access Violation при создании.

[thexqn]

Имеется такая структура данных:

type
TMyList = class
private
FMyList: TList;
public
property MyList: TList
read FMyList write FMyList;
function LoadListFromFile(var f: TRecFile): boolean;
function LoadListFromTextFile(var f: Text): boolean;
procedure SaveListToFile(var f: TRecFile);
procedure SaveListToTextFile(var f: TextFile);
procedure PopListToStringGrid(var Grid: TStringGrid);
end;

И вот такой метод

function TMyList.LoadListFromFile(var f: TRecFile): boolean;
var
I: TItem;
begin
MyList.Create;
Result := true;
while (not eof(f)) and Result do
try
I.Create;
Result := I.LoadFromFile(f);
MyList.Add(I)
except
Result := false
end;
end;

Ошибка AccessViolation возникает обычно, когда программа лезет в область памяти, которая, например, еще не выделена.

В моем случае выделяется строка 5 метода

Как исправить? Буду очень благодарна за помощь. Если нужно, могу предоставить код всей программы целиком.

[JTG]

Кто ж вас учил так объекты создавать?

MyList := TMyList.Create;
I := TItem.Create;

[thexqn]

Сделала вот так.

constructor TMyList.Create;
begin
  inherited Create;
  MyList := TList.Create
end;

//------------------------------------------------------------------------------

destructor TMyList.Destroy;
begin
  MyList.Free; // уничтожаем объект
  inherited Destroy;
end;

Создание объекта I тоже переделала, без толку
Всё равно ощибка в строке MyList := TList.Create

[mihali4]

Незнание азов вынудило меня перенести тему к новичкам...