1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
  I: Integer;
begin

  for I := 0 to Self.ComponentCount - 1 do
    if Self.Components[I] is TPanel then
      if not (Self.Components[I] as TPanel).Visible then
        ShowMessage(Self.Components[I].Name + ' ist nicht sichtbar');

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

    i:=0;
    for i:=0 to (self.ComponentCount-1) do begin
      if Self.Components[i] is TPanel then begin
        if (Self.Components[i] as TPanel).Visible=true then begin
// aber in die schleife springt er erst gar nicht rein und ich weiss nicht wieso da 
// auf jeden fall mindestens ein TPanel sichtbar ist.
           showmessage('Test!');
           x:=(random(721)+1);
           y:=(random(350)+1);
           (Self.Components[i] as TPanel).left:=x;
           (Self.Components[i] as TPanel).top:=y;
           AnzahlPanel:=AnzahlPanel+1;
        end
        else
           (Self.Components[i] as TPanel).Destroy;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do begin
    if (omponents[I] is TPanel then begin
      with Components[I] as TPanel do begin
        if Visible then
          ShowMessage(format('Sichtbares Panel gefunden: %s', [Name]))
        else
          ShowMessage(format('Unsichtbares Panel gefunden: %s', [Name]));
      end;
    end;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TFSpiel.PanelNeu;
var    Panel: TPanel;
       x, y : integer;
begin
    x:=(random(721)+1);
    y:=(random(350)+1);
    Panel:=TPanel.Create(Panel1);
    Panel.width := 40;
    Panel.Height := 40;
    Panel.Left := x;
    Panel.top := y;
    Panel.Caption:='F';
    Panel.Color:=clblue;
    Panel.Parent := FSpiel;
    Panel.OnClick:=PanelWeg;
    Panel.Visible:=true;
    Panel.Show;
    AnzahlPanel:=AnzahlPanel+1;
end;