..

시간이 없어서 대충쓸께요

일단 포인터로 하는 법....

procedure TForm1.arraytests(const Args: array of Pointer);
var i : integer;
begin
  for i := 0 to  HIGH(Args) do
    if TObject(Args[i]^) is TButton then
       TButton(Args[i]^).caption := '1';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  arraytests([@Button1, @Button2, @Button3]);
end;

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Edit3: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    procedure fEnable(bUse:boolean);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.fEnable(bUse:boolean);
var i: Integer;
begin
  for i := 0 to ComponentCount - 1 do
  begin
    if TControl(Components[i]).Parent <> panel1 then continue;

    if (Components[i] is TButton) then
      TButton(Components[i]).Enabled := bUse;

    if (Components[i] is TEdit) then
      with TEdit(Components[i]) do
      begin
        Enabled  := bUse;
        ReadOnly := not bUse;
        if not bUse then Clear;
        if bUse then Color := clWindow else Color := clBtnFace;
      end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  fEnable(True);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  fEnable(False);
end;

end.