Name von Dyn. generiertem Image auf einem Dyn. gener. Panel

[Deven]

Hallo zusammen

Ich habe wieder ein Problem bei dme ich keine Lösung finde

Wie schon so oft gesagt programmiere ich der Zeit ein Memoryspiel.

Das Programm erstellt Dynamisch Panels die als Spielkarten dienen.
Auf den Panels werden ebenfalls Dynamisch Images erzeugt und diesen per zufall Motive zugeordnet.
Jedes Motiv genau 2 mal wie es beim Memory halt sein muss.

Nun bin ich dabei das eigentliche Spielprinzip zu programmieren und habe den Dyn. generierten Panels eine Onclick Prozedur zugefügt.

Delphi-Quellcode:

// 4 Spielkarten erstellen
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
            Name := NamePrefix + IntToStr(i);
            Caption := 'Virtual-Memory';
            Color := clCream;
            onClick := Form1.dynPanelOnClick;
            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(12,12,95,95);
            
              repeat
                bild := Random(2);
                bilderzuordnung;
              until loop = 1;

            bilderzuordnung2;

            Picture.LoadFromFile(useBild);

            parent:=MyPanel1;
          end;
        end;

end;

nun kann ich durch den (Sender as TPanel) den namen des Panels bekommen und diesen somit ausbleden wenn der User zwei der gleichen motive aufdeckt, welches ich durch den Tag unterscheide (Jedes bild ein Tag-Wert)

Nun ist mir aufgefallen das ich die Motive ja erstmal sichtbar machen muss, was heisst ich muss den Image den ich am Anfang visible := false; setze true setzen sobald der User auf die Karte klickt.

MEINE FRAGE:

Woher bekomme ich den Namen des Images, welcher sich auf dem panel befindet den der User angeklickt hat?

Weiß jemand Rat?
Weil ich habe so langsam keinen Schimmer mehr was ich machen soll.

Hier noch die OnClick Prozedur.

Delphi-Quellcode:

// OnClick mit einem Dynamischen Panel
procedure TForm1.dynPanelOnClick(sender: TObject);
begin
with (Sender as TPanel) do begin

zug := (Sender as TPanel).Name;

if merker = 0 then
    begin

        name1 := (Sender as TPanel).Name;
        tag1 := (Sender as TPanel).Tag;
        merker := 1;
    end;


if zug <> name1 then
    begin
        (Sender as TPanel).Visible := true;
        name2 := (Sender as TPanel).Name;
        tag2 := (Sender as TPanel).Tag;
        merker := 0;
    end;




Label1.Caption := name1;
Label2.Caption := IntToStr(tag1);

Label3.Caption := name2;
Label4.Caption := IntToStr(tag2);
end;
end;

Vielen Dank schon im Voraus!