Передача в процедуру любого визуального объекта через одну переменную

  ButSel.Width:=Round(Panel1.Left*0.8);
  ButSel.Height:=ButSel.Width div 2;
  ButSel.Left:=Round(Panel1.Left*0.1);
  ButSel.Top:=Panel1.Top;
  ButSel.Font.Size:=Round(ButSel.Width/16);
  Ed1.Width:=ButSel.Left*2;
  Ed1.Height:=ButSel.Left*2;
  Ed1.Left:=Panel1.Left Div 2 - Ed1.Width div 2;
  Ed1.Top:=ButSel.Top+ButSel.Height*2;
  Ed1.Font.Size:=Round(Ed1.Width*0.55);

  ResizeF(ButSel,0.3,0.14,0.65,0.65,0);
  ResizeF(Ed1,0.3,0.14,0.65,0.65,0);
  ResizeF(Panel1,0.3,0.14,0.65,0.65,0);

procedure ResizeF(Me: TObject; L,U,X,Y,FS:real);
begin
   If (Me is TLabel) then begin
    (Me as TLabel).Left:=Round(Form1.Width * L);
    (Me as TLabel).Top:=Round(Form1.Height * U);
    (Me as TLabel).Width:=Round(Form1.Width * X);
    (Me as TLabel).Height:=Round(Form1.Height * Y);
    If FS>0 Then (Me as TLabel).Font.Size:=Round((Me as TLabel).Width * FS);
   end;
   If (Me is TPanel) then begin
    (Me as TPanel).Left:=Round(Form1.Width * L);
    (Me as TPanel).Top:=Round(Form1.Height * U);
    (Me as TPanel).Width:=Round(Form1.Width * X);
    (Me as TPanel).Height:=Round(Form1.Height * Y);
    If FS>0 Then (Me as TPanel).Font.Size:=Round((Me as TPanel).Width * FS);
  end;
// и так далее до бесконечности разнообразия типов........

procedure TForm1.Clicks(Sender: TObject);
begin
  TControl(Sender).Click;//НЕ ТОТ ТИП
end;
...
  TMyCtrls(Sender).Click;// компилируется но потом ошибка
 
 (Sender as TButton).Click;//компилируется и наверно работает, но оно мне не надо такое
 (Sender as TPanel).Click;// не компилируется что за прикол то? У панелей точно есть событие OnClick!

//метод, выполняемый при клике на панели или на метке на панели
procedure TForm1.PanelClick(Sender: TObject);
var O: TObject;
begin
 if (Sender is TLabel) then O := (Sender as TLabel).Parent else O := Sender;
 (O as TPanel).Left := (O as TPanel).Left + 1;
end;
 
//создание панели и метки на ней
procedure TForm1.Button1Click(Sender: TObject);
var P: TPanel;
    L: TLabel;
begin
  P := TPanel.Create(self);
  P.Parent := self;
  P.Left := 50;
  P.Top := 50;
  P.Caption := '';
  P.Visible := true;
  P.OnClick := PanelClick;
  L := TLabel.Create(P);
  L.Parent := P;
  L.Left := 10;
  L.Top := 10;
  L.Caption := 'AAAAAAAAA';
  L.OnClick := PanelClick;
end;

//Так создаются панели-"кнопки"
  For y:=1 to 4 do For x:=1 to 4 do
  Begin
    a:=TPanel.Create(Form1);  a.Parent:=aa; /"a"
    a.Name:='Pan'+IntTostr(x)+IntTostr(y); //В имени каждой панели зашифрованы координаты панели в массиве
    ButMas[X,Y].But:=a;
  end;
 
// А вот так изымается адрес ячейки массива из имени сработавшей панели и обработка уже конкретно клика
// Там по сути выделить и снять выделение с кнопки
 
procedure TForm1.BtCl(Sender: TObject);
Var x,y:integer; S:string;
begin
   s:= (Sender AS TPanel).Name;
   x:=StrToInt(s[4]);
   y:=StrToInt(s[5]);
   ButMas[X,Y].Select:= Not ButMas[X,Y].Select;
end;

Id.Name:=          'Маня'+IntTostr(x)+IntTostr(y);
MaxLoad.Name:='Люся'+IntTostr(x)+IntTostr(y);
Load.Name:=      'Петя'+IntTostr(x)+IntTostr(y);

...
ButMas[X,Y].LaId.OnClick:=BtCl;
ButMas[X,Y].LaMaxLoad.OnClick:=BtCl;
ButMas[X,Y].LaLoad.OnClick:=BtCl
...
procedure TForm1.BtCl(Sender: TObject);
Var x,y:integer; S:string;
begin
   if (Sender is TLabel) then Sender := (Sender as TLabel).Parent;
...

Var x,y:integer; S:string;
 LPanel:TPanel
begin
   if (Sender is TLabel) then LPanel := TPanel((Sender as TLabel).Parent);
...

procedure TForm1.Clicks(Sender: TObject);
begin
 (Sender as TLabel).Parent.Click; // Не компилируется, но вроде как правильно написано как мне кажется
end;