procedure TForm1.Button2Click(Sender: TObject);
var
  x,y : integer;
  PanelArray: Array[1..5,1..5] of TPanel;

  i,j: Integer;
  ImgArray: Array[1..5,1..5] of TImage;

begin
  for y:=1 to 5 do begin
    for x := 1 to 5 do begin
      for i := 1 to 5 do begin
        for j := 1 to 5 do begin

          PanelArray[x,y]:=TPanel.Create(Self);
          PanelArray[x,y].Parent:= Self;
          PanelArray[x,y].Color:=clBtnFace;
          PanelArray[x,y].BevelInner:=bvNone;
          PanelArray[x,y].BevelKind:=bkNone;
          PanelArray[x,y].BevelOuter:=bvRaised;
          PanelArray[x,y].Left := x*100;
          PanelArray[x,y].Top := y*100;
          PanelArray[x,y].width:=90;
          PanelArray[x,y].height:=90;

          ImgArray[i,j] := TImage.Create(PanelArray[x,y]);
          ImgArray[i,j].Parent := PanelArray[x,y];
          ImgArray[i,j].Left := i*50;
          ImgArray[i,j].Top := j*50;
          ImgArray[i,j].Width := 50;
          ImgArray[i,j].Height := 50;
          ImgArray[i,j].Picture.LoadFromFile(IntToStr(i)+'.bmp');
        end;
      end;
    end;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  X, Y: Integer;
  PanelArray: Array [1 .. 5, 1 .. 5] of TPanel;
  ImgArray: Array [1 .. 5, 1 .. 5] of TImage;
begin
  for Y := 1 to 5 do  begin
    for X := 1 to 5 do  begin

      PanelArray[X, Y] := TPanel.Create(Self);
      PanelArray[X, Y].Parent := Self;
      PanelArray[X, Y].Color := clBtnFace;
      PanelArray[X, Y].BevelInner := bvNone;
      PanelArray[X, Y].BevelKind := bkNone;
      PanelArray[X, Y].BevelOuter := bvRaised;
      PanelArray[X, Y].Left := X * 155;
      PanelArray[X, Y].Top := Y * 155;
      PanelArray[X, Y].Width := 150;
      PanelArray[X, Y].Height := 150;

      ImgArray[X, Y] := TImage.Create(PanelArray[X, Y]);
      ImgArray[X, Y].Parent := PanelArray[X, Y];
      ImgArray[X, Y].Left := x * 7;
      ImgArray[X, Y].Top := y * 3;
      ImgArray[X, Y].Width := 120;
      ImgArray[X, Y].Height := 120;
      ImgArray[X, Y].Picture.LoadFromFile(IntToStr(x) + '.bmp');
      ImgArray[X, Y].Stretch := True;

    end;
  end;

end;

procedure TForm1.FormCreate(Sender: TObject);
var
  X, Y, i: Integer;
  PanelArray: Array [1 .. 5, 1 .. 5] of TPanel;
  ImgArray: Array [1 .. 5, 1 .. 5] of TImage;
  ImgLink : string;
begin
  ADOQuery1.Close;
  ADOQuery1.Open;

    for Y := 1 to 5 do
      for X := 1 to 5 do
        begin

          while not ADOQuery1.Eof do
          begin

            PanelArray[X, Y] := TPanel.Create(Self);
            PanelArray[X, Y].Parent := Self;
            PanelArray[X, Y].Color := clBtnFace;
            PanelArray[X, Y].BevelInner := bvNone;
            PanelArray[X, Y].BevelKind := bkNone;
            PanelArray[X, Y].BevelOuter := bvRaised;
            PanelArray[X, Y].Left := X * 180 - 150;  // расстояние между панелями по горизонтали
            PanelArray[X, Y].Top := Y * 180 - 150;  // расстояние между панелями по вертикали
            PanelArray[X, Y].Width := 170;    // ширина панели
            PanelArray[X, Y].Height := 170;   // высота панели

            ImgArray[X, Y] := TImage.Create(PanelArray[X, Y]);
            ImgArray[X, Y].Parent := PanelArray[X, Y];
            ImgArray[X, Y].Left := x * 2;
            ImgArray[X, Y].Top := y * 2;
            ImgArray[X, Y].Width := 100;
            ImgArray[X, Y].Height := 100;
            //ImgArray[X, Y].Picture.LoadFromFile(IntToStr(x) + '.bmp');
            //ImgArray[X, Y].Picture.LoadFromFile('C:\image_ihumbnail_link\4.bmp');
            ImgArray[X, Y].Picture.LoadFromFile(ADOQuery1.FieldByName('ImageThumbnailLink').AsString);
            ImgArray[X, Y].Align := alClient;

            ImgArray[X, Y].AlignWithMargins := True;
            ImgArray[X, Y].Margins.Left := 0;
            ImgArray[X, Y].Margins.Top := 0;
            ImgArray[X, Y].Margins.Bottom := 0;
            ImgArray[X, Y].Margins.Right := 0;
            ImgArray[X, Y].Stretch := True;

          ADOQuery1.Next;
    end;


  end;



end;

  private
    { Private declarations }

   procedure btnBuyProductsClick(Sender: TObject);
  public
    ProdName: string;
    { Public declarations }
  end;

procedure TMainForm.btnBuyProductsClick(Sender: TObject);
begin
  ShowMessage(ProdName);
end;

procedure TMainForm.GetCards;
var
  CardList : string;
  pName, pCountry, pSumm, pCurrency, pImageLink : string;
  S, Sc : string;
  X, Y, i: Integer;

  ButtonBuy: Array [1 .. 25] of TUniButton;
  PanelArray: Array [1 .. 25] of TuniPanel;
  ImgArray: Array [1 .. 25] of TuniImage;
  PanForImg: Array [1 .. 25] of TuniPanel;
  LabelProdName: Array [1 .. 25] of TUniLabel;
  LabelPrice: Array [1 .. 25] of TUniLabel;

begin
try
  spmProduct.Close;
  spmProduct.Open;
  i := 1;
  X := 30;
  Y := 30;
  while not spmProduct.Eof do
  begin
     //Главная панель
     PanelArray[i] := TuniPanel.Create(UniScrollBox2);      //(1)
     with PanelArray[i] do
     begin
      Parent := UniScrollBox2;
      BevelInner := bvNone;
      BevelKind := bkNone;
      BevelOuter := bvRaised;
      SetBounds(X,Y,160,250);
     end;

     //Панель картинки
     PanForImg[i] := TuniPanel.Create(PanelArray[i]);    //(2)
     with PanForImg[i] do
     begin
      Parent := PanelArray[i];
      BevelInner := bvNone;
      BevelKind := bkNone;
      BevelOuter := bvRaised;
      Align := alTop;
      SetBounds(0,0,150,160);
     end;

     // Картинка
     ImgArray[i] := TuniImage.Create(PanForImg[i]);      //(3)
     with ImgArray[i] do
     begin
      Parent := PanForImg[i];
      Align := alClient;
      Picture.LoadFromFile(spmProduct['image_ihumbnail_link']);
      Stretch := True;
     end;

     // Метка: Наименование продукта
     LabelProdName[i] := TUniLabel.Create(PanelArray[i]);    //(2)
     with LabelProdName[i] do
     begin
      Parent := PanelArray[i];
      Caption:= spmProduct['name'];
      SetBounds(5,185,10,50);
     end;

     // Метка: Цена товара
     LabelPrice[i] := TUniLabel.Create(PanelArray[i]);    //(2)
     with LabelPrice[i] do
     begin
      pSumm := spmProduct['price_begin'];
      pCurrency := spmProduct['currencies_name'];
      Font.Size := 10;
      Parent := PanelArray[i];
      Caption:= pSumm + ' ' + pCurrency;
      SetBounds(5,165,10,50);
     end;

     // Кнопка: В корзину
     ButtonBuy[i] := TUniButton.Create(PanelArray[i]);    //(2)
     with ButtonBuy[i] do
     begin
      Parent := PanelArray[i];
      Caption:= 'В корзину';
      OnClick := btnBuyProductsClick;
      ProdName:= spmProduct['name'];
      Align := alBottom;
     end;

    spmProduct.Next;

    inc(i);
    inc(X,180);
    if X > 850 then
    begin
      inc(Y,270);
      X := 30;
    end;
  end;
finally
  PanelArray[i].Free;
  ImgArray[i].Free;
  PanForImg[i].Free;
  ButtonBuy[i].Free;
  LabelProdName[i].Free;
  LabelPrice[i].Free;
end;
end;

unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIRegClasses, uniGUIForm, Data.DB, Data.Win.ADODB,
  uniGUIBaseClasses, uniScrollBox, uniPanel, uniImage, uniButton, uniLabel;

type

TMyObject = class(TUniPanel)
  public
    PanForImg: TUniPanel;
    Img: TUniImage;
    LabelProdName: TUniLabel;
    LabelPrice: TUniLabel;
    ButtonBuy: TUniButton;
    pSumm : Currency;
    pCurrency: string;
    constructor Create(AOwner: TComponent);
    override;
    destructor Destroy;
    override;
end;


  TMainForm = class(TUniForm)
    ADOConnection1: TADOConnection;
    spmProduct: TADOQuery;
    UniScrollBox1: TUniScrollBox;
    procedure UniFormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure btnBuyProductsClick(Sender: TObject);
  public
    { Public declarations }
  end;

function MainForm: TMainForm;

implementation

{$R *.dfm}

uses
  uniGUIVars, MainModule, uniGUIApplication;

function MainForm: TMainForm;
begin
  Result := TMainForm(UniMainModule.GetFormInstance(TMainForm));
end;



constructor TMyObject.Create(AOwner: TComponent);
begin
   //Главная панель
  PanForImg := TuniPanel.Create(self);      //(2)
  with PanForImg do begin
    Parent := Self;             [color=red]<-- ВОТ НА ЭТОЙ СТРОЧКЕ ОШИБКА.[/color]
    BevelInner := bvNone;
    BevelKind := bkNone;
    BevelOuter := bvRaised;
    Align := alTop;
    SetBounds(0,0,150,160);
  end;

     // Картинка
   Img := TuniImage.Create(self);           //(3)
   with Img do begin
    Parent := self;
    Align := alClient;
//    Picture.LoadFromFile(spmProduct['image_ihumbnail_link']);
    Stretch := True;
   end;

     // Метка: Наименование продукта
   LabelProdName := TUniLabel.Create(self);    //(2)
   with LabelProdName do begin
    Parent := self;
//    Caption:= spmProduct['name'];
    SetBounds(5,185,10,50);
   end;

     // Метка: Цена товара
   LabelPrice := TUniLabel.Create(self);    //(2)
   with LabelPrice do begin
//    pSumm := spmProduct['price_begin'];
//    pCurrency := spmProduct['currencies_name'];
    Parent := self;
    Font.Size := 10;
//    Caption:= pSumm + ' ' + pCurrency;
    SetBounds(5,165,10,50);
   end;

     // Кнопка: В корзину
   ButtonBuy := TUniButton.Create(self);    //(2)
   with ButtonBuy do begin
     Parent := self;
     Caption:= 'В корзину';
//      OnClick := btnBuyProductsClick;
//      ProdName:= spmProduct['name'];
     Align := alBottom;
   end;
end;


procedure TMainForm.btnBuyProductsClick(Sender: TObject);
var
  Btn: TUniButton;
  MyObject: TMyObject;
begin
  Btn := TUniButton(Sender);
  MyObject := TMyObject(Btn.Owner); 
end;


procedure TMainForm.UniFormCreate(Sender: TObject);
var
  X, Y, i: Integer;
  MyObject: array[1 .. 25] of TMyObject;

begin
  spmProduct.Close;
  spmProduct.Open;
  i := 1;
  X := 30;
  Y := 30;
  while not spmProduct.Eof do begin
    MyObject[i] := TMyObject.Create(Self);
    with MyObject[i] do begin
      Parent := UniScrollBox1;
      SetBounds(X,Y,160,250);
      Img.Picture.LoadFromFile(spmProduct['image_ihumbnail_link']);
      LabelProdName.Caption:= spmProduct['name'];
   //   pSumm := spmProduct['price_begin'];
   //   pCurrency := spmProduct['currencies_name'];
      LabelPrice.Caption:= spmProduct['price_begin'] + ' ' + pCurrency;
      ButtonBuy.OnClick := btnBuyProductsClick;
    end;
    spmProduct.Next;
    inc(i);
    inc(X,180);
    if X > 850 then begin
      inc(Y,270);
      X := 30;
    end;
  end;
end;

destructor TMyObject.Destroy;
begin
  Img.Free;
  PanForImg.Free;
  ButtonBuy.Free;
  LabelProdName.Free;
  LabelPrice.Free;
  inherited;
end;

initialization
  RegisterAppFormClass(TMainForm);

end.