No hace falta que crees un procedimiento para cada label, sino que puedes usar para todos los labels el mismo procedimiento. Por ejemplo haz que todos los labels apunten a
label1click.
Dentro de este procedimiento tienes el parámetro Sender que te indica cual de los labels se ha pulsado realmente.
Código Delphi
[-]
var
lbl:TLabel;
begin
if (Sender is TLabel) then begin
lbl := TLabel(Sender);
(1)
end;
En el punto (1) la variable lbl apunta al label sobre el que se ha pulsado el Click, label1, label2,.....