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

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;

MyList := TList.Create;

type
  TMyList = class
  private
    FMyList: TList;
  public
    constructor Create();
    destructor Destroy();override;
  end;
implementation
constructor TMyList.Create;
begin
  inherited;
  FMyList:= TList.Create;
end;
destructor TMyList.Destroy;
begin
  FMyList.Free;
  inherited;
end;

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

  MyList := TList.Create

constructor TMyList.Create;
begin
  inherited Create;
  MyList := TList.Create; // ЗДЕСЬ AV  вылетает?
end;

I.Create; // тоже неверно может на самом деле теперь здесь!!

MyList := TMyList.Create;

property MyList: TList read FMyList write FMyList;

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

unit UCoffeeMachine;
 
interface
 
uses
  SysUtils, Grids;
 
const
  maxtypes = 8;
  Names: array[1..maxtypes] of string = ('Эспрессо','Гляссе','Доппио','Капуччино','Американо','Айриш','Латте','Мокко' );
 
type
  TKind = (Espresso=1, Glasse, Doppio, Capuccino, Americano, Irish, Latte, Mocco);
 
  RecItem = record
      Name: string[40];
      Kind: TKind;
      SugarQ: integer;
      Price: real;
  end;
 
  TRecFile = file of RecItem;
 
  TItem = class
    private
      FName: string;
      FKind: TKind;
      FSugarQ: integer;
      FPrice: real;
    protected
      procedure SetName(aName: string);
      procedure SetKind(aKind: TKind);
      procedure SetSugarQ(aQ: integer);
      procedure SetPrice(aPrice: real);
    public
      property Name: string
        read Fname write SetName;
      property Kind: TKind
        read FKind write SetKind;
      property SugarQ: integer
        read FSugarQ write SetSugarQ;
      property Price: real
        read FPrice write SetPrice;
      constructor Create;
      procedure SaveToTextFile(var f: TextFile);
      procedure SaveToFile(var f: TRecFile);
      procedure PopToStringGrid(var Grid: TStringGrid; Row: integer);
      function StrToTKind(typenum: integer): TKind;
      function LoadFromFile(var f: TRecFile): boolean;
      function LoadFromTextFile(var f: Text): boolean;
  end;

TMyList = class
    private
      FMyList: TList;
    public
      property MyList: TList
        read FMyList write FMyList;
      //procedure LoadListFromFile(var f: TRecFile);
      //procedure LoadListFromTextFile(var f: TextFile);
      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);
      function AddItem(Item: TItem): integer;
      procedure RemoveItem(ItemIndex: integer);
      function Count: integer;
      constructor Create;
      destructor Destroy; override;
  end;
 
implementation
 
//------------------------------------------------------------------------------
 
constructor TMyList.Create;
begin
  inherited Create;
  MyList := TList.Create
end;
 
//------------------------------------------------------------------------------
 
destructor TMyList.Destroy;
begin
  MyList.Free; // уничтожаем объект
  inherited Destroy;
end;
 
//------------------------------------------------------------------------------

procedure TFrmMain.NLoadFromTextClick(Sender: TObject);
var
  f: TextFile;
begin
  OpenDialog1.Filter :=  'Text Files|*.txt';
 if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    L.Create;
    if not L.LoadListFromTextFile(f) then
      MessageDlg('Не удалось загрузить список из текстового файла. Текстовый файл поврежден или имеет неверную структуру.', mtWarning, [mbOK], 0)
    else
      begin
        ShowMessage('Загрузка из текстового файла прошла успешно.');
        ListIsEmpty := false;
      end;
    CloseFile(f)
  end;
end;

  MyList := TList.Create

procedure TFrmMain.NLoadFromTextClick(Sender: TObject);
var
  f: TextFile;
begin
  OpenDialog1.Filter :=  'Text Files|*.txt';
 if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    if not L.LoadListFromTextFile(f) then
      MessageDlg('Не удалось загрузить список из текстового файла. Текстовый файл поврежден или имеет неверную структуру.', mtWarning, [mbOK], 0)
    else
      begin
        ShowMessage('Загрузка из текстового файла прошла успешно.');
        ListIsEmpty := false;
      end;
    CloseFile(f)
  end;
end;

function TMyList.LoadListFromFile(var f: TRecFile): boolean;
var
  I: TItem;
begin
   if MyList <> nil then MyList.Free;
   MyList := TList.Create;
 
  Result := true;
  while (not eof(f)) and Result do
    try
      I := TItem.Create;
      Result := I.LoadFromFile(f);
      AddItem(I)
    except
      Result := false
    end;
end;

L.Create; // расшифруйте

L := TMyList.Create;

procedure TFrmMain.NClearListClick(Sender: TObject);
begin
  if ListIsEmpty then ShowMessage('Список и так пуст')
    else
      L.Destroy
end;

function TMyList.LoadListFromTextFile(var f: Text): boolean;
var
  i: TItem;
begin
  //if MyList <> nil then MyList.Free;
  MyList := TList.Create;
  Result := true;
  while (not eof(f)) and Result do
    try
      I := TItem.Create;
      Result := I.LoadFromTextFile(f);
      AddItem(I)
    except
      Result := false
    end;
end;