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

  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 ResizeF(Me: TControl; L,U,X,Y,FS:real);
begin
  Me.Left:=Round(Form1.Width * L);
  Me.Top:=Round(Form1.Height * U);
  Me.Width:=Round(Form1.Width * X);
  Me.Height:=Round(Form1.Height * Y);
  If FS>0 Then Me.Font.Size:=Round(Me.Width * FS); // На эту строку ругается
end;

procedure ResizeF(Me: TControl; AFont:TFont; L,U,X,Y,FS:real);
begin
  Me.Left:=Round(Form1.Width * L);
  Me.Top:=Round(Form1.Height * U);
  Me.Width:=Round(Form1.Width * X);
  Me.Height:=Round(Form1.Height * Y);
If assigned(AFont) then
  If FS>0 Then AFont.Size:=Round(Me.Width * FS); // На эту строку ругается
end;

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