Hallo und herzlich Willkommen.
Du kannst allen deinen Labeln die selbe Funktion zuweisen.
"btn100MouseEnter" in "btnMouseEnter" umbenennen und dann über den
OI oder per Code zuweisen.
Edit:
ähm wenn du die Eigenschaften des Labels ändern möchtest, warum castest du dann nach TPanel????
Besser so:
Delphi-Quellcode:
procedure TfmHVMainForm.btnMouseEnter(Sender: TObject);
begin
if Sender is TLabel then
begin
TLabel(Sender).Color := clyellow;
...
end;
end;