Ese procedimiento es el OnClick que estás programando. En tu ejemplo, si todos los OnClick de los Labels te apuntan a este prodecimiento podrías usarlo de esta forma:
Código Delphi
[-]
procedure Tfentrada.Lh101Click(Sender: TObject);
var habita:integer;
begin
habita:= h101.Brush.Color;
if habita = clYellow then
begin
habita:=clRed;
h101.Brush.color:=habita;
TLabel(Sender).Font.Color:=clYellow
end
else
begin
habita:=clYellow;
TLabel(Sender).Font.Color:=clBlack;
h101.Brush.color:=habita
end
end;
Ahora queda el tema del control h101 que habría que hacer algo similar. Supongo que es un control que está relacionado con la etiqueta que se llama igual (o casi igual). Para ese caso se puede utilizar un
FindComponent.
¿De qué tipo es este control?
Código Delphi
[-]
var
comp:Tcomponent;
begin
comp := FindComponent('L' + Sender.Name);