Mehrfachabarbeitung von Komponente

[TeronG]

Hallo

Ist es möglich mehrere Komponenten auf einmal in der gleichen Art zu behandeln ??

z.B bei AbLED1 - 7 den zustand von checked abzufragen

Delphi-Quellcode:

procedure mainform.xyz
begin
  AbLED1.Checked := Leuchte[1];
  AbLED2.Checked := Leuchte[2];
  AbLED3.Checked := Leuchte[3];
  AbLED4.Checked := Leuchte[4];
end;

Ich kann zwar mit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:=0 to ComponentCount-1 do
    if Components[I] is TEdit then
      (Components[i] as TEdit).Text:='Alle Edits ändern';
end;

ALLE Component's eines Typ's ändern aber nicht NUR einen Teil?

Habt ihr da ne Idee?