Как динамично создать объекты\элементы на форме? Сохранить и загрузить их состояние после запука приложения?

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  SetLength(MyButtons, StrToInt(Edit1.Text)); // задаёшь разиер массива (кол-во кнопок)
  for I := 0 to Length(MyButtons) - 1 do
  begin  // в цикле создаёшь кнопки и сохраняешь указатели на них в массиве
    MyButtons[i] := TButton.Create(Form1);
    // здесь делаешь с созданной кнопкой что нужно
    MyButtons[i].Parent := Form1;
    // и т. д.
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure btnClick(Sender: TObject);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.btnClick(Sender: TObject);
begin
  Label1.Caption := TButton(Sender).Caption;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TButton.Create(Form1) do begin
    Parent := Form1;
    Caption := IntToStr(Random(1000));
    Left := Random(Form1.ClientWidth - Width);
    Top := Random(Form1.ClientHeight - Height - 40) + 40;
    OnClick := btnClick;
  end;
end;
 
end.

procedure TfmMain.CreatePlanPicture(Id, Left, Top: Integer);//Id и координаты
var Img:TLabeledImage;
    BMP:TBitmap;
begin
BMP:=TBitMap.Create;
{Создание обычное, создается компонент с владельцем и родителем.
У тебя это уже есть, еще в конструкторе ставится DragMode:=dmAutomatic;
т. у. у меня эти штуки можно мышкой таскать, как Drag and drop делается
в любом учебнике есть}
Img:=TLabeledImage.Create(sbPLan,sbPlan,Left,Top,32,32);
Img.ObjId:=Id;//Присваивается Id
{Присваиваются событийные процедуры, у меня это onClick
и onMouseDown}
Img.OnClick:=ImgClick;
Img.OnMouseDown:=ImgMouseDown;
DM.ilPlantImages.GetBitmap(0,BMP);//картинка
Img.Picture.Bitmap.Assign(BMP);
Img.Label1Text:='0';
Img.Label2Text:=Img.ObjId.ToString;
Img.PopupMenu:=pmObjPict;//Попап меню.
BMP.Free;
end;
 
constructor TLabeledImage.Create(AOwner, AParent: TWinControl;
  ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited Create(AOwner) ;
Parent:=AParent;
DragMode:=dmAutomatic;
Left:=ALeft;
Top:=ATop;
Width:=AWidth;
Height:=AHeight;
//Дальше таким же макаром создаются и выравниваются 2 TLabel
 
end;