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

[himitsu]

Ich hab Ihn in ICQ dran, nicht das ihr noch denkt, ich mache Selbstgespräche

Delphi-Quellcode:

Var Image1, Image2: TImage;

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;
        Image1 := (Sender as TPanel).Controls[0] as TImage;
        merker := 1;
      End;
      If zug <> name1 Then Begin
        (Sender as TPanel).Visible := true;
        name2 := (Sender as TPanel).Name;
        tag2 := (Sender as TPanel).Tag;
        Image2 := (Sender as TPanel).Controls[0] as TImage;
        merker := 0;
      End;
      Label1.Caption := name1;
      Label2.Caption := IntToStr(tag1);
      Label3.Caption := name2;
      Label4.Caption := IntToStr(tag2);
    End;
  End;


Image1.Visible := True;