// MCU BASIC: https://www.basic4mcu.com
// DateTime : 2018-08-18 오후 5:54:41
// by Ok-Hyun Park
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    procedure AAAA;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.AAAA;
begin
  Button2.Enabled:=True;
  Button3.Enabled:=True;
end;

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

end.