Как на форме объединить элементы для работы по индексам?

//------------------------------------------------------------------------------
// Выбрали индикатор LED_U1 Процедура выделяет активный индикатор
//------------------------------------------------------------------------------
procedure TPS.LED_U1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//Showmessage('TPS.LED_U1MouseDown');
   ActiveNum:=1;
   NumActivate(1);
   MemoryState(PrevU,PrevI);
   LED_U1.Caption:=LedChange(Button,strtoint(LED_U1.Caption));
   CheckLimitation;
end;
.........
.........
 
//------------------------------------------------------------------------------
// Выбрали индикатор LED_U5 Процедура выделяет активный индикатор
//------------------------------------------------------------------------------
procedure TPS.LED_U5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//Showmessage('TPS.LED_U5MouseDown');
   ActiveNum:=5;
   NumActivate(5);
   MemoryState(PrevU,PrevI);
   LED_U5.Caption:=LedChange(Button,strtoint(LED_U5.Caption));
   CheckLimitation;
end;

//------------------------------------------------------------------------------
// Выбрали индикатор LED_U Процедура выделяет активный индикатор
//------------------------------------------------------------------------------
procedure TPS.LED_UMouseDown(N:integer;Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
//Showmessage('TPS.LED_U5MouseDown');
   ActiveNum:=N;
   NumActivate(N);
   MemoryState(PrevU,PrevI);
   LED_UN.Caption:=LedChange(Button,strtoint(LED_UN.Caption));
   CheckLimitation;
end;