Farben mehrerer Panels Ändern

[Gehstock]

hat sich erledigt

Delphi-Quellcode:

procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
 For I := 2 to 10 do
  Begin
   TPanel(FindComponent('Panel' + IntToStr(I))).Color := clBlack;
  End;
end;