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

  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;
// и так далее до бесконечности разнообразия типов........

//Перед объявлением класса формы объявим свой класс - наследник TControl
type
//Это наш класс
  TMyCtrls = class(TControl)
  public
    property Font;
  end;
//А это пошел класс формы
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
//Далее все как есть
    .... 
 
procedure ResizeF(Me:TObject;L,U,X,Y,FS:real);
begin
  TMyCtrls(Me).Left:=Round(TMyCtrls(Me).Parent.Width * L);
  TMyCtrls(Me).Top:=Round(TMyCtrls(Me).Parent.Height * U);
  TMyCtrls(Me).Width:=Round(TMyCtrls(Me).Parent.Width * X);
  TMyCtrls(Me).Height:=Round(TMyCtrls(Me).Parent.Height * Y);
  If FS>0 Then TMyCtrls(Me).Font.Size:=Round(TMyCtrls(Me).Width * FS);
end;
//Пример вызова процедуры
ResizeF(Panel1, 0.3, 0.14, 0.65, 0.65, 0);