Hansa, du hast zwar inzwischen self durch Sender ersetzt, aber wahrscheinlich doch nicht verstanden was ich dir im Beitrag #5 beibiegen wollte. Ersetze noch "TLabel(Sender)" durch "Sender as TLabel", vielleicht wird dann deutlicher, das Sender = Self = frm ist.
Um Labels mit roter Schrift hervorzuheben kannst du einfach für alle TLabel Komponenten einen gemeinsamen Event Handler verwenden:
Delphi-Quellcode:
procedure TDemoForm.LabelMouseEnter(Sender: TObject);
begin
with Sender as TLabel do
Font.Color := clRed;
end;
procedure TDemoForm.LabelMouseLeave(Sender: TObject);
begin
with Sender as TLabel do
Font.Color := clBlack;
end;
Grüße vom marabu