Поиск компонента по имени - Delphi FireMonkey - Ответ 9757115

var
  vysota_u,shirina_u :integer;
 
procedure obn();
var
  image: TImage;
  i,j,kl: integer;
  LayoutMainM:TLayout;
begin
  i_razreshenie_hoda:=True;
  kolvo_gotovyh_iaschikov:=0;
  kolvo_hodov:=0;
 
  for i := 0 to vysota_u do
  begin
    for j := 0 to shirina_u do
    begin
      image := TImage.Create(LayoutMainM);
      image.Parent := (Form2.FindComponent('vysita') as TLayout);
      image.Align := TAlignLayout.alNone;
      image.Width := kl;
      image.Height := kl;
      image.Position.X := (j*shirina_kletki);
      image.Position.Y := (i*shirina_kletki);
 
      image.Name := 'fon_'+inttostr(i)+'_'+inttostr(j);
      image.Bitmap.LoadFromFile('C:\Users\SHipa\Desktop\Img\0.png');
      image.WrapMode:= TImageWrapMode.iwStretch;
 
      if (i=5) and (j=5) then
      begin
        image := TImage.Create(LayoutMainM);
        image.Parent := (Form2.FindComponent('vysita') as TLayout);
        image.Align := TAlignLayout.alNone;
        image.Width := kl;
        image.Height := kl;
        image.Position.X := (j*kl);
        image.Position.Y := (i*kl);
 
        image.Name := 'st_'+inttostr(i)+'_'+inttostr(j);
        image.Bitmap.LoadFromFile('C:\Users\SHipa\Desktop\Img\1.png');
        image.WrapMode:= TImageWrapMode.iwStretch;
      end;
 
    end;
  end;
 
end;
 
procedure TForm2.Image1Click(Sender: TObject);
var
    LayoutMainM:TLayout;
begin
    vysota_u:=10;
    shirina_u :=10;
    kl:=10;
 
    if Assigned(Form2.FindComponent('shirina') as TLayout) then
    begin
       (Form2.FindComponent('shirina') as TLayout).Destroy;
    end;
 
    LayoutMainM := TLayout.Create(Form2);
    LayoutMainM.Parent := Layout3;
    LayoutMainM.Align := TAlignLayout.alHorzCenter; 
    LayoutMainM.Name := 'shirina';
 
    LayoutMain := TLayout.Create(LayoutMainM);
    LayoutMain.Parent := LayoutMainM;
    LayoutMain.Align := TAlignLayout.alVertCenter;
    LayoutMain.Name := 'vysita';
 
    obn();
 
end;
 
procedure TForm2.Image2Click(Sender: TObject);
begin
    
end;