den Caption eines Dynamisch erstellten Panels ändern

[Deven]

Hallo zusammen!

Ich habe da mal eine Frage!
Ich lasse hier ein panel dynamisch generieren und in diesem panel ein Image

Jetzt möchte ich dem Panel gerne ein Caption zuordnen aber habe keine ahnung wie ^^"

Könnte ihr mir helfen?

Delphi-Quellcode:

procedure TForm1.Case1;
var i:integer;
    test:string;
const
   NamePrefix = 'Panel';
   NamePrefix2 = 'Image';
begin
        links :=10;
        oben :=10;
        breite :=120;
        hoehe :=120;
        verschiebung :=130;
        bild := 0;
        loop := 0;
        use := 0;
        use1 := 0;
        pa := 1;

        for i := 1 to 4 do
        begin
         MyPanel1 := TPanel.Create(Self);
         with MyPanel1 do
          begin
            Caption := '';
            Name := NamePrefix + IntToStr(i);
            SetBounds(links, oben, breite, hoehe);
            Inc(oben,verschiebung); // Erhöht "oben" um "verschiebung"

            if i = 2 then
              begin
                Inc(links,verschiebung);
                oben := 10;
              end;
           parent:=Self;
          end;

         MyImage1 := TImage.Create(Self);
         with MyImage1  do
          begin
            Name := NamePrefix2 + IntToStr(i);
            SetBounds(3,3,114,114);
            
              repeat
                bild := Random(2);
                bilderzuordnung;
              until loop = 1;

            bilderzuordnung2;

            Picture.LoadFromFile(useBild);

            parent:=MyPanel1;
          end;
        end;

end;