delphi Проблема получения значения Frame Tag в цикле

Question

Я пытаюсь сделать список кадров внутри прокрутки

Информация добавляется в кадры таблицей в базе данных, содержащей значение (id)

Я хочу связать поле (id) со значением Frame Tag

Я смог сделать все, кроме значения Frame Tag

после окончания цикла повторяться на всех кадрах

Пожалуйста, помогите и отредактируйте код

   procedure TForm3.FormCreate(Sender: TObject);
    var
   cartRow: TFrm;
   posX,posY : SmallInt;
   P : TPanel ;
   IMG : TImage;
   larn,larc,lari,larfd : TLabel;
   imgname:string;
   TagName : Integer;
    FDQuery2 : TFDQuery;
    begin
    ScrollBox1.DestroyComponents;
    posX := 0;
    posY := 0;
    FDQuery1.First;
    while not FDQuery1.Eof do
      begin
        cartRow := TFrm.Create(ScrollBox1);
        cartRow.Parent := ScrollBox1;
        cartRow.Left := posX - 1;
        cartRow.Top := posY - 1;
        cartRow.Label1.Caption := FDQuery1.FieldByName('CountryEn').AsString;
        cartRow.Label2.Caption := FDQuery1.FieldByName('CountryID').AsString;
        imgname := FDQuery1.FieldByName('ImagePath').AsString;
        PngImageList1.GetBitmap(PngImageList1.FindIndexByName(imgname), cartRow.CIMG.Picture.Bitmap);
        cartRow.Width := ScrollBox1.Width;
        cartRow.OnClick := Click;
        posY := posY + cartRow.Height + 1;
        cartRow.Name := imgname;
        cartRow.Tag := StrToInt(FDQuery1.FieldByName('CountryID').AsString);
        TagName := cartRow.Tag;
        //ShowMessage(IntToStr(TagName));
        FDQuery1.Next;
      end;
         FDQuery1.Close;
         FDQuery1.Free;