Loading Bitmap Failed

function TMainForm.LoadGames: integer;
var
i,a,b,u:integer;
fr:TItemFrame;
  Status0Color : TAlphaColor;
  Status1Color : TAlphaColor;
  Status2Color : TAlphaColor;
begin
  Status0Color := TAlphaColorF.Create(250 / 255, 77 / 255, 77 / 255, 255 / 255).ToAlphaColor;
  Status1ColoR := TAlphaColorF.Create(57 / 255, 191 / 255, 121 / 255, 255 / 255).ToAlphaColor;
  Status2Color := TAlphaColorF.Create(169 / 255, 169 / 255, 169 / 255, 255 / 255).ToAlphaColor;
  for i := Self.VertScrollBox1.ComponentCount-1 downto 0 do
    begin
    if (self.VertScrollBox1.Components[i] is TItemFrame) then
       begin
       {$IFDEF MSWINDOWS}
       (self.VertScrollBox1.Components[i] as TItemFrame).free;
       {$ENDIF}
       {$IFDEF ANDROID}
       (self.VertScrollBox1.Components[i] as TItemFrame).DisposeOf;
       {$ENDIF}
       {$IFDEF IOS}
       (self.VertScrollBox1.Components[i] as TItemFrame).DisposeOf;
       {$ENDIF}
       end;
    end;
 
   for i := 0 to LENGTH(MatchList)-1 do
      begin
   if MatchList[i].LeagueFullName = ActiveLeague then
        begin
          fr:=TItemFrame.Create(self.VertScrollBox1);
          fr.Name:='gameitem'+ inttostr(i);
          fr.Margins.Top:=5;
          fr.Margins.Right:=5;
          FR.Margins.Left:=5;
          FR.Position.Y:=i*41+5+i*5;
          fr.Parent:=self.VertScrollBox1;
          fr.Align:=TAlignLayout.Top;
          //
          fr.Team1NameText.Text := MatchList[i].HomeName;  //Название команды 1
          fr.Team2NameText.Text := MatchList[i].AwayName;  //Название команды 2
          fr.LeagueNameText.Text := MatchList[i].LeagueName; //Название Лиги
          fr.ScoreFullTimeText.Text := MatchList[i].FullTotal; // Счет Фулл
          fr.ScoreHalfTimeText.Text := MatchList[i].HalfTotal; // Счет половина
          if MatchList[i].GameStatus = 0 then fr.StatusIndicator.Fill.Color := Status0Color; //Status 0
          if MatchList[i].GameStatus = 1 then fr.StatusIndicator.Fill.Color := Status1Color; //Status 1
          if MatchList[i].GameStatus = 2 then fr.StatusIndicator.Fill.Color := Status2Color; //Status 2
          self.VertScrollBox1.Height := self.VertScrollBox1.Height + fr.Height+5;
 
 
          //Image1.Bitmap.LoadFromStream(piclist[5].imagefile); <- Сделал для теста на форме картинку, все вроде как работает
 
          ///Загрузка картинок
         if Length(MatchList[i].HomePicID) > 5 then
          begin
             for u := 0 to LENGTH(piclist)-1 do
              begin
               if piclist[u].id = MatchList[i].HomePicID then
                begin
                 fr.DownloadBitmap(piclist[u].imagefile, fr.Team1Image.Bitmap);
                end;
              end;
          end;
        end;
      end;
    VertScrollBox1.RealignContent;
    VertScrollBox1.Repaint;
    VertScrollBox1.RecalcSize;
end;

unit itemU;
 
interface
 
uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
  FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
  FMX.Effects, FMX.Objects, System.Net.HttpClient, FMX.ImgList;
 
type
  TItemFrame = class(TFrame)
    RectangleBG: TRectangle;
    Image1: TImage;
    Team1Image: TImage;
    Team2Image: TImage;
   ///Тут куча однотипного текста 
  private
    { Private declarations }
  public
    { Public declarations }
    FBmp : TBitmap;
    procedure DownloadBitmap(AStream: TMemoryStream; ABmp: TBitmap);
  end;
 
implementation
 
{$R *.fmx}
 
procedure TItemFrame.DownloadBitmap(AStream:TMemoryStream; ABmp:TBitmap);
begin
  FreeAndNil(FBmp);
  try
      abmp.LoadFromStream(AStream);
  finally
    AStream.Free;
  end;
end;
 
end.

B:= TBitmap.CreateFromStream(th.resst);
...
img1.Bitmap  := B;