label farbe verändern

[TylerDurden]

Hallo,

bin ganz neu hier und hoffe das ich alles so richtig mache!

Kann mir evtl. jemand helfen folgenden Quellcode zu vereinfachen bzw. zu verkürzen???

Delphi-Quellcode:

procedure TForm1.Label11Klick(Sender: TObject);
begin
  LabelKlick(Sender);
  if Label11.Color = clWindow then Label11.Color:= clRed else Label11.Color:= clWindow;
  if Label10.Color = clWindow then Label10.Color:= clRed else Label10.Color:= clWindow;
  if Label12.Color = clWindow then Label12.Color:= clRed else Label12.Color:= clWindow;
  if Label7.Color = clWindow then Label7.Color:= clRed else Label7.Color:= clWindow;
  if Label15.Color = clWindow then Label15.Color:= clRed else Label15.Color:= clWindow;
  WinGame;
end;

procedure TForm1.Label12Klick(Sender: TObject);
begin
  LabelKlick(Sender);
  if Label12.Color = clWindow then Label12.Color:= clRed else Label12.Color:= clWindow;
  if Label11.Color = clWindow then Label11.Color:= clRed else Label11.Color:= clWindow;
  if Label8.Color = clWindow then Label8.Color:= clRed else Label8.Color:= clWindow;
  if Label16.Color = clWindow then Label16.Color:= clRed else Label16.Color:= clWindow;
  WinGame;
end;

geht so weiter bis Label16 soll aber wenn möglich noch weiter gehen!

Schon mal vielen Dank im voraus!

P.S.: Hab es übrigens schon mit einem Array of TLabel probiert komm aber nicht wirklich weiter

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]