Die Farbe von TLabel mit einem Click ändern ?

[BenjaminH]

Versuchs mal so

Delphi-Quellcode:

procedure TForm1.MyLabel(var Farbe: Integer);
Var i:Integer;
begin
  for i:=0 to COmponentCount-1 do
    If Components[i] is TLabel Then
      TLabel(Components[i]).Color := Farbe;
end;