Ошибка памяти

unit Unit2;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  FMX.ListView.Types, Data.DB, MemDS, DBAccess, MyAccess, FMX.ListView,
  FMX.Objects, FMX.StdCtrls, FMX.Controls.Presentation, FMX.Layouts,
  FMX.TabControl, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP;
 
type
  TForm2 = class(TForm)
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    TabItem3: TTabItem;
    Layout1: TLayout;
    Layout2: TLayout;
    Layout3: TLayout;
    Layout4: TLayout;
    DishDetailName: TLabel;
    Layout6: TLayout;
    Layout7: TLayout;
    DishDetailIcon: TImage;
    Layout5: TLayout;
    Layout8: TLayout;
    DishDetailPrice: TLabel;
    Button1: TButton;
    DishDetailСomposition: TText;
    ListView1: TListView;
    MyConnection1: TMyConnection;
    MyQuery1: TMyQuery;
    ListView2: TListView;
    IdHTTP1: TIdHTTP;
    procedure TabItem1Click(Sender: TObject);
    procedure ListView1Click(Sender: TObject);
    procedure ListView2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.fmx}
 
 
 
procedure TForm2.TabItem1Click(Sender: TObject);
var
 LItem: TListViewItem;
 
     begin
        ListView1.ClearItems();
        MyConnection1.Connected:= true;
        MyQuery1.Active:=false;
        MyQuery1.SQL.Text:='select * from type';
        MyQuery1.Active:=true;
        ListView1.BeginUpdate;
        while (not myQuery1.Eof) do
          begin
            LItem := ListView1.Items.Add;
              LItem.Text:=MyQuery1.FieldByName('name_type').AsString;
            MyQuery1.Next;
          end;
 
      end;
 
procedure TForm2.ListView1Click(Sender: TObject);
var
  LItem: TListViewItem;
  ms: TMemoryStream;
  begin
     ListView2.ClearItems;
     MyQuery1.Active:=false;
     MyQuery1.SQL.Text:='select * from dish, type where type.id_type=dish.id_type and type.name_type= :parType';
     MyQuery1.Params.ParamByName('parType').Value:=ListView1.Selected.Text;
     MyQuery1.Active:=true;
     while (not myQuery1.Eof) do
          begin
            LItem := ListView2.Items.Add;
              LItem.Text:=MyQuery1.FieldByName('name_dish').AsString;
            LItem.Detail:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
            IdHTTP1 := TIdHTTP.Create(Application);
            ms := TMemoryStream.Create;
            IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , ms);
            LItem.Bitmap.LoadFromStream(ms);
            MyQuery1.Next;
 
          end;
     TabControl1.Next();
  end;
 
 procedure TForm2.ListView2Click(Sender: TObject);
 var mss: TMemoryStream;
begin
  MyQuery1.Active:=false;
  MyQuery1.SQL.Text:='select * from dish where name_dish= :parDish';
  MyQuery1.Params.ParamByName('parDish').Value:=ListView2.Selected.Text;
  MyQuery1.Active:=true;
  DishDetailName.Text:=MyQuery1.FieldByName('name_dish').AsString;
  IdHTTP1 := TIdHTTP.Create(Application);
  mss := TMemoryStream.Create;
  IdHTTP1.Get(MyQuery1.FieldByName('image').AsString , mss);
  DishDetailIcon.Bitmap.LoadFromStream(mss);
  DishDetailPrice.Text:=MyQuery1.FieldByName('Ціна').AsString;
  DishDetailСomposition.Text:='Состав: '+ MyQuery1.FieldByName('struktyre').AsString;
  TabControl1.Next();
 
 
end;
end.