Fórum Urgente !!!!! Criar Botão em Execução #156417

procedure Button1Click(Sender: TObject);
procedure ClickBotao (Sender: TObject);
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
var   Painel : TPanel;
      Botao : TButton;
begin
    Painel := TPanel.Create(Self);
    with Painel do
    begin
      Parent := self;
      SetBounds (50,80,200,300);{ É a mesma coisa que declara left,  top, height e width separadamente
      left := 50;
      top := 80;
      Height := 200;
      Width := 300;}
    end;
Botao := TButton.Create(Self);
    with Botao do
    begin
      Parent := Painel;
      Caption := ´Botão´;
      left := 100;
      top := 60;
      Height := 80;
      Width := 100;
      OnClick := ClickBotao;
    end
end;

procedure TForm1.ClickBotao(Sender: TObject);
begin
  showmessage(´Tá Funcionando´);
end;