Farben mehrerer Panels Ändern

[Gehstock]

Versuche das grad so was zu einer Exeption führt

Delphi-Quellcode:

procedure TEditor.ObenAlleAnClick(Sender: TObject);
var
I : Integer;
begin
 For I := 2 to 10 do
  Begin
   TPanel(I).Color := CLBlack;
  End;
end;