실행시에 버튼을 화면에 만들어 보려고 합니다.

아래와 같이 폼에 딸랑 버튼하나만 만들어 놓고 버튼을 누르면

동적으로 버튼이 생성되고 핸들러를 등록하려고 합니다.

그런데 컴파일 에러가 발생하네요
"Unsatisfied forward or external declaration: 'TForm1.DynBtnClick'

소스는 아래와 같습니다.  보시고 원인을 아시는 분은 답해주세요...


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure DynBtnClick(Sender : TObject); <-------- 에러가 발생
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

var
  DynBtn : TButton;
{$R *.dfm}

procedure DynBtnClick(Sender : TObject);
begin
  ShowMessage('동적으로 버튼이 생성되었습니다.');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DynBtn := Tbutton.Create(Form1);
  DynBtn.Caption := '동적생성';
  DynBtn.Parent := Form1;
  DynBtn.OnClick := DynBtnClick;
end;

end.